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Abstract 


Many  spacecraft  today  have  two  separate  propulsion  systems:  a 
chemical  system  for  large  maneuvers  and  an  electric  propulsion  system  for  minor 
adjustments.  The  concept  of  coupling  an  electric  and  chemical  propulsion  system 
is  not  necessarily  new  but  few  studies  have  been  published  which  discuss  having 
an  integrated  chemical  and  electrical  propulsion  system.  The  utilization  of  a 
multi-mode  propulsion  (MMP)  system  could  reduce  the  amount  of  propellant 
required  for  maneuvers  in  addition  to  lowering  overall  propulsion  system  mass. 
MMP  refers  to  a  propulsion  system  that  couples  an  electric  and  chemical 
propulsion  system  which  utilizes  the  same  propellant  tank  and  piping.  A  fully 
coupled  system  provides  many  advantages  over  a  spacecraft  with  a  single 
chemical  or  electric  propulsion  system. 

To  help  quantify  the  potential  benefits  in  the  utilization  of  a  MMP 
system  three  separate  spacecraft  missions  were  analyzed.  The  missions  were 
chosen  to  be  representative  of  potential  spacecraft  missions.  These  missions 
include  an  altitude  change  mission,  a  phase  change  mission  and  a  plane  change 
mission.  Each  mission  had  a  fixed  propellant  mass  and  time  constraint.  A  variety 
of  thrust  profiles  were  investigated  that  utilized  a  combination  of  electric  and 
chemical  propulsion  to  complete  the  maneuver  within  the  mission  constraints. 

The  “optimal”  thrust  profile  for  each  mission  was  detennined  as  the  profile  which 
completed  the  mission  in  the  time  constraint  with  the  least  amount  of  propellant. 
In  all  cases  the  utilization  of  the  electric  propulsion  system  decreased  overall 
required  propellant  mass. 
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Introduction 


Three  separate  spacecraft  missions  were  analyzed  utilizing  a  multi-mode 
propulsion  system1.  The  missions  chosen  were  selected  to  represent  a  broad  range  of 
common  orbital  maneuvers.  The  missions  included  a  phase  change  mission,  an  altitude 
change  mission  and  a  plane  change  mission.  An  extensive  literature  search  was 
performed  that  did  not  yield  any  papers  that  addressed  the  combined  use  of  an  electric 
and  chemical  propulsion  system  to  perform  spacecraft  maneuvers. 

Edelbaum  mentioned  the  benefits  from  combining  a  low  and  high  thrust  system  to 
perform  orbital  maneuvers  in  concluding  remarks  in  a  1962  Journal  of  Astronautical 
Sciences  article  but  was  left  to  future  work6.  The  lack  of  analysis  for  missions  utilizing 
electric  propulsion  was  largely  due  to  the  lack  of  computing  power.  Numerous  iterations 
are  required  to  analyze  an  electric  propulsion  transfer  which  would  have  been  incredibly 
time  consuming  in  the  1950’s  and  1960’s  when  Edelbaum  published  his  paper. 

Advancements  in  computing  power  have  made  it  possible  to  perform  simulations 
that  involve  numerous  iterations  in  a  relatively  short  period  of  time.  These  advancements 
have  made  it  possible  to  model  low  thrust  orbital  transfers.  The  orbit  transfers  modeled 
for  this  paper  required  on  the  order  of  10,000+  iterations;  these  missions  took  several 
hours  for  MATLAB®*  to  compute. 

The  differences  between  a  less  accurate  “impulsive”  orbit  updating  method  was 
compared  with  a  method  that  updated  the  spacecraft’s  position  and  velocity  continuously 
throughout  the  transfer  orbit  for  the  plane  change  mission. 

*MATLAB  is  a  registered  trademark  of  The  Mathworks,  Inc.,  One  Apple  Hill,  Natick,  MA. 
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The  only  method  described  in  any  of  the  textbooks  found  for  performing  a  plane  change 
maneuver  was  an  impulsive  cranking  maneuver  perfonned  at  the  crossover  point  of  the 
initial  orbit  and  the  desired  orbit '  . 

The  equations  utilized  in  the  separate  mission  analysis  were  based  on  equations 
from  several  textbooks  including  Fundamentals  of  Astrodynamics  by  Bate,  Mueller,  and 
White”  as  well  as  Orbital  Mechanics  for  Engineering  Students  by  Curtis  .  Numerous 
other  textbooks  were  referenced4,5.  Additional  equations  were  developed  for  the  specific 
spacecraft  missions  analyzed.  All  the  equations  were  programmed  with  MATLAB®  to 
simulate  the  orbital  transfer  trajectories.  The  data  was  compiled  and  plots  were 
generated  with  MATLAB®  as  well  as  Excel. 

Overview 

Spacecraft  chemical  propulsion  systems  provide  high  thrust  resulting  in  fast  trip 
time  but  at  the  cost  of  the  propellant  required.  Spacecraft  electric  propulsion  systems 
provide  high  specific  impulse  which  result  in  low  propellant  usage  but  have  long  trip 
times,  sometimes  on  the  order  of  years.  The  combined  use  of  chemical  and  electric 
propulsions  system  for  spacecraft,  though  it  adds  weight  and  complexity,  has  been 
considered  beneficial  to  spacecraft  perfonnance  based  on  the  propellant  mass  savings. 
Presently  this  involves  having  entirely  separate  propulsion  systems.  Many  spacecraft 
utilize  a  chemical  propulsion  system  for  primary  mission  requirements  and  use  a  separate 
electric  propulsion  system  for  station-keeping  maneuvers.  This  reflects  the  propellant 
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mass  savings  of  electric  propulsion  over  chemical  propulsion  systems.  The  savings 
resulting  from  electric  propulsion  must  outweigh  the  added  complexity  and  mass. 

The  idea  of  coupling  an  electric  and  chemical  propulsion  system  through  the  use 
of  a  common  propellant  to  decrease  propulsion  system  mass  and  decrease  complexity  has 
only  recently  been  investigated1.  The  concept  has  been  mentioned  but  almost  no  results 
or  studies  have  been  published  on  development  results.  Overall  propulsion  system  mass 
may  be  reduced  by  integrating  the  chemical  and  electric  propulsion  systems  through  the 
use  of  a  common  propellant.  Chemical  and  electric  propulsion  systems  utilizing  the  same 
propellant  enables  them  to  use  the  same  propellant  tank  and  common  piping.  Having  one 
propellant  tank  and  common  piping  decreases  the  overall  propulsion  system  mass.  This 
set  up  is  referred  to  as  a  multi-mode  propulsion  (MMP)  system.  An  example  of  a  MMP 
system  is  shown  in  Figure  5  in  the  spacecraft  specifications  subsection. 

Each  of  the  three  missions  modeled  in  this  paper  had  a  time  and  propellant 
constraint  that  would  be  challenging  to  both  the  chemical  and  the  electric  propulsion 
systems.  Missions  with  small  time  constraints  were  modeled  primarily  using  chemical 
propulsion  supplemented  by  electric  propulsion  to  lower  the  required  propellant.  The 
time  constraint  was  also  modified  to  show  how  longer  time  constraints  can  decrease 
propellant  mass  when  the  electric  propulsion  system  was  able  to  thrust  for  additional 
periods  of  time. 

To  determine  the  mission  tradespace  three  missions  were  analyzed  which 
represent  a  variety  of  missions  that  a  spacecraft  may  be  required  to  perfonn.  An  orbit 
raise  and  lower  mission,  a  phase  change  mission  and  a  plane  change  mission  were 
analyzed.  The  electric  propulsion  system  was  unable  to  achieve  the  trip  time  constraint 
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for  the  missions  and  the  chemical  system  utilized  the  majority  of  the  propellant  mass 
available  or  was  unable  to  achieve  the  maneuver  within  the  propellant  mass  constraint. 

An  “optimal”  combination  of  electric  and  chemical  propulsion  system  thrust  was  found 
for  each  mission  that  resulted  in  the  time  constraint  being  achieved  with  the  lowest 
amount  of  propellant  through  the  modeling  of  numerous  thrust  profiles. 

As  shown  in  the  upcoming  literature  review,  no  papers  were  found  which  looked 
at  a  coupled  chemical-electric  propulsion  system  to  complete  maneuvers.  If  an  electric 
propulsion  system  was  analyzed  it  was  considered  completely  separated  from  the 
chemical  system.  Electric  propulsion  systems  must  be  analyzed  in  conjunction  with 
chemical  propulsion  systems  for  its  potential  to  be  realized.  Treating  electric  propulsion 
systems  separately  causes  it  to  be  disregarded  for  missions  with  tight  time  constraints 
when  it  could  potentially  decrease  the  propellant  usage.  The  utilization  of  a  multi-mode 
propulsion  system  causes  the  electric  and  chemical  propulsion  systems  to  be  treated  as  an 
integrated  unit.  The  shifting  design  of  the  propulsion  system  could  lead  mission  analysts 
or  engineers  to  begin  using  both  modes  of  the  multi-mode  system  to  complete  maneuvers. 

Before  work  began  on  analyzing  the  missions  and  developing  the  necessary 
equations,  a  literature  search  was  performed.  There  was  little  to  no  information  available 
regarding  multi-mode  propulsion  and  hardly  any  information  regarding  the  modeling  of 
spacecraft  maneuvers  utilizing  electric  and  chemical  propulsion.  The  majority  of  papers 
that  resulted  from  multi-mode  propulsion  searches  had  different  definitions  of  “multi- 
mode”.  The  most  common  definition  was  a  combination  of  air-breathing  and  liquid  or 
solid  propulsion,  such  as  the  X-5 1 .  There  were  quite  a  few  papers  on  developments  in 
electric  propulsion  and  on  orbit  testing  of  hardware.  There  were  also  no  papers  which 
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discussed  combined  high  and  low  thrust  propulsion  systems  completing  orbital 
maneuvers.  A  few  papers  had  general  conclusions  but  with  no  explanation  on  how  the 
conclusions  were  reached.  The  following  section  serves  as  a  general  overview  on  what  is 
available  regarding  chemical  and  electric  propulsion  systems  and  mission  analysis. 

Literature  Review 

Electric  thruster  design  and  experimentation  first  occurred  in  the  late  1940’s. 

Since  then  numerous  papers  have  been  published  which  address  electric  propulsion 
system  development  and  experimentation.  Warner  Von  Braun  expressed  interest  in 
electric  propulsion  and  prompted  a  series  of  papers  to  be  published  beginning  in  1954 
regarding  electric  propulsion  systems6.  In  1962  Edelbaum  published  a  paper  in  the 
Journal  of  Astronautical  Sciences  that  broached  the  idea  of  coupling  an  electric  and 
chemical  propulsion  system7.  In  the  paper  he  mentioned  how  coupling  the  two 
propulsion  systems  could  be  very  beneficial  for  on-orbit  maneuvers  but  no  analysis  or 
results  were  discussed. 

Electric  Propulsion  Development  &  History 

The  first  operational  flight  test  of  an  electric  propulsion  system  was  in  1964 
conducted  by  Russia  and  used  a  Teflon-pulsed  plasma  system  for  attitude  control  ’  . 

Much  development  has  occurred  since  then  by  numerous  aerospace  companies  as  well  as 
governments  '  .  Russia  and  the  United  States  were  the  primary  countries  to  invest  time 
and  resources  into  electric  propulsion  development.  Stuhlinger  wrote  a  thorough 
background  regarding  the  origin  of  electric  propulsion  and  its  development5. 
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The  realization  that  electric  propulsion  could  result  in  reduced  fuel  consumption 
has  resulted  in  many  spacecraft  in  orbit  today  with  some  form  of  an  electric  propulsion 
system6.  These  systems  mainly  perform  orbit  maintenance  tasks  such  as  station  keeping. 
Electric  propulsion  has  gained  acceptance  over  the  years  in  the  spacecraft  community  by 
being  utilized  for  station-keeping  and  small  orbital  adjustments.  Its  slow  acceptance  was 
due  largely  to  the  amount  of  power  required  for  most  electric  propulsion  systems,  the 
weight  associated  with  the  components  necessary  to  convert  the  power  into  a  useful  form 
for  propulsion  and  unknown  field  effects.  Improvements  to  spacecraft  power  systems  are 
positively  impacting  electric  propulsion  systems11. 

There  are  many  different  variations  of  thrusters  that  are  classified  as  electric 
propulsion  thrusters.  Three  different  types  of  electric  propulsion  thrusters  were  analyzed 
in  a  1994  paper  by  Cassady  et  al.9.  The  thrusters  were  a  30  cm  derated  ion  thruster,  a 
xenon  Hall  thruster  (SPT-100),  and  a  hydrazine  arcjet  thruster.  Repositioning  a 
spacecraft  in  a  sun  synchronous  low  earth  orbit  and  an  east-west  location  change  in  GEO 
were  addressed  using  both  chemical  and  electric  propulsion  separately.  The  lowest 
electric  propulsion  system  mass  resulted  from  the  hydrazine  arcjet  thruster  because  it 
utilized  the  same  propellant  as  the  chemical  propulsion  system.  This  type  of  a  shared 
propellant  system  between  the  chemical  and  electric  propulsion  system  is  referred  to  as  a 
multi-mode,  or  dual-mode,  propulsion  system.  This  was  the  only  paper  which  mentioned 
a  combined  system,  but  the  two  modes  were  not  used  together  for  the  mission  analysis. 
The  LEO  and  GEO  missions  were  investigated  using  either  the  electric  propulsion  system 
or  the  chemical  system  alone.  The  authors  reached  several  conclusions  including  that 
LEO  orbital  mechanics  can  be  more  complex  than  in  GEO.  Also,  inclination  change 
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maneuvers  are  extremely  costly  in  regards  to  delta  v  as  compared  with  an  orbit  raising  or 
lowering  maneuver.  The  authors  did  not  model  the  electric  propulsion  system 
performing  the  inclination  change  because  it  was  assumed  that  spacecraft  could  only 
thrust  at  the  crossover  nodes.  This  impulsive  thrusting  at  the  crossover  node  is  the  only 
transfer  method  documented  in  textbook  equations  for  completing  plane  changes. 
Development  of  the  commonly  used  equations  are  reviewed  in  Equations  23  -  30  of  this 
paper.  The  equations  provide  an  estimate  for  the  required  delta-v,  but  give  no  time 
estimates  because  the  maneuver  is  assumed  impulsive.  Due  to  this  electric  propulsion 
systems  are  not  modeled  to  perform  plane  change  maneuvers. 

Of  the  three  separate  electric  propulsion  systems  the  arcjet  perfonned  the 
maneuvers  the  quickest,  followed  by  the  hall  thruster,  then  the  ion  thruster.  The  ion 
thruster  was  able  to  enable  1 1  maneuvers  in  GEO,  whereas  the  hydrazine  arcjet  enabled  3 
maneuvers.  The  trip  time  for  each  ion  maneuver  was  much  longer  than  the  arcjet  trip 
time;  this  was  a  direct  result  of  the  specific  impulse  and  power  available. 

A  paper  written  in  2006  by  Pidgeon  et  al.  reviewed  the  performance  of  the 
Stationary  Plasma  Thruster  (SPT-100)10.  The  SPT-100  is  a  Hall  Effect  type  thruster  that 
was  developed  in  Russia  and  was  used  on  a  western  spacecraft  for  the  first  time  2004. 
This  thruster  is  very  popular  for  electric  propulsion  systems  and  is  referenced  many  times 
in  literature.  The  pre-flight  expectations  of  the  SPT-100  were  compared  with  on-orbit 
performance.  At  the  time  of  this  report  the  SPT-100  thrusters  had  been  firing  twice  a  day 
for  two  years.  During  that  duration  the  thruster  performed  without  fault  and  has  since 
been  incorporated  onto  19  other  spacecraft  as  of  2006. 
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Martinez- Santchez  et  al.  noted  that  hydrazine  was  the  most  successful  and  popular 
for  testing  with  resistojets  and  arcjets,  though  numerous  propellants  were  tested  .  Three 
missions  that  electric  propulsion  has  primarily  been  used  for  are  North-South  Station 
keeping  (NSSK),  orbit  raising  or  lowering,  and  orbital  repositioning14.  NSSK  for 
geosynchronous  satellites  can  require  a  large  delta-v  allotment.  Earth-moon  effects  can 
require  around  51  m/s/year  which  can  become  a  large  consideration  over  a  15  year  design 
life  of  a  satellite.  An  entirely  electric  propulsion  transfer  from  Low  Earth  Orbit  (LEO)  to 
Geostationary  Orbit  (GEO)  can  require  over  1000  m/s  additional  delta  v  than  a  chemical 
system  but  require  less  propellant  making  it  a  viable  system  if  trip  time  is  not  an  issue. 

Electric  propulsion  is  being  increasingly  considered  for  larger  orbit  maneuvers 
which  have  previously  been  completed  purely  by  chemical  propulsion  systems.  These 
maneuvers  can  be  accomplished  with  a  substantially  smaller  amount  of  propellant  than 
required  by  a  chemical  propulsion  system  to  perform  the  same  maneuver.  A  downside  to 
having  an  electric  propulsion  system  in  addition  to  a  chemical  propulsion  system  is  that  it 
causes  increased  weight  and  complexity  because  the  spacecraft  would  essentially  have 
two  separate  propulsion  systems  on  board.  The  benefits  of  electric  propulsion  outweigh 
the  added  complexity  in  most  cases  such  that  there  have  been  a  variety  of  papers  written 
on  the  subject  of  electric  propulsion  and  track  its  development  throughout  history5,9. 

A  study  perfonned  in  2008  investigated  3  separate  missions  in  which  small 
satellites  in  LEO  performed  maneuvers  using  an  electric  propulsion  system  ' .  The  three 
separate  missions  were  an  altitude  change,  an  inclination  change,  and  a  phase  change.  A 
specific  electric  propulsion  system  was  not  studied;  a  range  of  specific  impulse  values 
from  1,000  -  3,000  sec  was  used.  Of  the  three  missions  investigated  electric  propulsion 
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did  not  perform  well  for  a  large  (>  90  deg)  inclination  change  maneuver.  One  of  the 
main  drawbacks  was  that  for  many  cases  the  transfer  time  would  take  over  a  year  which 
may  not  be  acceptable  for  certain  missions.  This  paper  did  not  perform  a  detailed 
analysis  using  electric  propulsion,  but  calculated  the  expected  delta-v  to  perform  the 
maneuvers  based  on  generic  textbook  equations  then  varied  the  specific  impulse  based  on 
power  available. 

A  1993  paper  suggested  that  an  electric  propulsion  system  could  potentially  create 
a  new  realm  of  “designer”  orbits15.  These  orbits  could  be  achieved  through  a  continually 
thrusting  electric  propulsion  system  to  maintain  out  of  the  ordinary  orbits,  such  as 
molniya-like  orbits,  or  satellites  flying  in  formation.  The  author  proposed  that  electric 
propulsion,  besides  performing  regular  operations,  could  be  used  to  increase  the  overall 
capability  and  mission  trade  space  available  with  chemical  propulsion. 

Multi-Mode  Propulsion  Development 

Multi-mode  propulsion  has  developed  into  two  separate  branches.  One  branch 
has  thrusters  such  as  Aerojet’s  BPT-4000,  which  has  a  high  thrust/high  power  mode  and 
a  low  thrust/low  power  mode.  The  maximum  thrust  on  this  system  was  around  0.3  N 
and  has  had  extensive  testing11.  The  testing  of  the  BPT-4000  has  confirmed  a  life 
capacity  of  over  7000  hours  as  of  2002  when  the  paper  was  published.  The  BPT-4000 
was  developed  by  Aerojet  which  has  been  developing  hall  thrusters  since  1994  and  have 
been  integrated  onto  numerous  spacecraft  platforms  including  National  Reconnaissance 
Office  and  NASA  satellites. 
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A  separate  branch  of  multi-mode  propulsion  had  an  electric  thruster  and  a 
separate  chemical  thruster  that  share  an  integrated  propulsion  system  with  a  common 
propellant7.  The  propulsion  system  can  switch  from  chemical  to  electric  at  any  time 
causing  the  maximum  thrust  to  be  that  of  the  chemical  thruster.  Hydrazine  is  the  primary 
propellant  that  has  been  considered.  This  system  has  a  decreased  propulsion  system 
weight  due  to  the  utilization  of  a  common  propellant  tank  and  piping.  Utilizing  this  set 
up  can  potentially  extend  the  lifetime  of  the  satellite  as  well  as  provide  additional  mission 
capability.  Since  multi-mode  propulsion  systems  are  relatively  new  to  space  propulsion 
there  are  few  papers  available  regarding  spacecraft  multi-mode  propulsion,  but  there  have 
been  many  studies  performed  that  have  laid  the  groundwork. 

Multi-Mode  Propulsion  Mission  Analysis 

Many  studies  have  been  perfonned  which  investigate  the  advantages  of  having  a 
separate  chemical  and  electric  propulsion  system  on  a  spacecraft  to  provide  the  fast 
transfer  time  with  the  fuel  economy  of  an  electric  propulsion  system.  The  first  published 
study  that  mentioned  a  combined  chemical  and  electric  propulsion  system  for  performing 
maneuvers  was  by  Edelbaum  in  19627.  Up  until  that  point  chemical  and  electric  systems 
had  always  been  discussed  as  two  completely  separate  systems.  The  chemical  system 
would  perform  large  maneuvers  to  achieve  the  desired  orbit  and  electric  propulsion 
would  be  used  for  orbit  maintenance.  Edelbaum  concluded  that  the  use  of  chemical  and 
electric  propulsion  together  for  a  single  maneuver  could  provide  an  increase  in  payload 
but  no  study  results  were  presented.  This  was  largely  due  to  the  extensive  computation 
required  to  model  an  electric  propulsion  transfer  of  any  extended  duration. 
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A  study  presented  at  the  AIAA  International  Communications  Satellite  Systems 
Conference  in  1996  evaluated  the  use  of  chemical  and  electric  propulsion  systems  for  the 
repositioning  of  Geostationary  spacecraft16.  A  generic  hydrazine  chemical  propulsion 
system  was  analyzed  alongside  several  electric  propulsion  systems  including  a  hydrazine 
arcjet,  a  stationary  plasma  thruster  (SPT-100),  and  a  xenon  ion  propulsion  system  (XIPS- 
25).  Relocating  the  spacecraft  was  analyzed  separately  for  the  chemical  system  and  then 
for  the  electric  system  with  no  combined  maneuvers.  Electric  propulsion  systems  build 
up  delta-v  gradually  due  the  extended  thrusting  times  and  is  a  known  penalty.  The  largest 
trade  off  between  electric  propulsion  and  chemical  propulsion  for  maneuvers  was 
decreased  trip  time  or  decreased  propellant  mass. 

A  study  documented  in  the  Journal  of  Spacecraft  and  Rockets  in  2002 
investigated  the  advantages  of  having  a  chemical  and  electric  propulsion  system  for  a 
LEO  to  GEO  transfer19.  Two  separate  trades  were  perfonned  to  look  at  optimizing  the 
trip  time  as  well  as  fuel  consumption.  The  chemical  system  analyzed  was  similar  to  the 
space  shuttle  orbital  maneuvering  system  and  used  N204/MMH.  The  electric  propulsion 
thrusters  analyzed  were  30-kW  arcjet  thrusters  based  on  the  electric  propulsion  space 
experiment  (ESEX)  which  used  ammonia,  a  stationary  plasma  thruster  (SPT-100),  and  a 
Hall  Effect  Thruster  (HET-200)  which  both  used  xenon  as  a  propellant.  One  issue  that 
was  addressed  was  that  for  LEO  to  GEO  transfers  using  a  pure  electric  propulsion  system 
the  total  radiation  dose  becomes  high  due  to  the  long  trip  duration.  They  suggested  using 
chemical  propulsion  to  decrease  the  trip  time  and  exposure  in  the  Van  Allen  belts.  To 
decrease  the  radiation  dosage  an  electric/chemical/electric  thrust  profile  was  the  best  for  a 
LEO  to  GEO  transfer. 
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Chemical  and  electric  propulsion  have  been  analyzed  for  many  lunar  missions.  A 
study  by  Kluever  in  the  Journal  of  Spacecraft  and  Rockets  in  1994  described  using  a 
chemical  propulsion  system  for  transfer  from  a  translunar  injection  to  a  lunar  orbit 
insertion  (LOI)  with  electric  propulsion  used  from  LOI  to  a  final  polar,  circular  low  lunar 
orbit17.  The  final  delta-v  increase  to  escape  the  moon’s  gravity  field  is  suggested  as  being 
done  by  the  electric  propulsion  system.  Having  an  electric  propulsion  system  perfonn 
some  of  the  orbital  maneuvering  tasks  created  a  15%  higher  payload  capability  for  the 
spacecraft  to  complete  its  mission.  An  increase  in  mission  payload  of  that  amount  is  very 
substantial. 

Conclusion 

Multi-mode  propulsion  is  a  very  new  topic  and  only  a  few  papers  address  the 
possibility  ’  ’  .  The  acceptance  of  multi-mode  propulsion  will  become  more  prevalent 
as  the  advantages  of  a  combined  system  are  published.  Currently  the  majority  of  papers 
which  discuss  a  chemical/electric  system  do  not  use  any  combined  thrust  profiles  for  the 
missions  analyzed.  Modeling  extended  duration  electric  propulsion  transfers  has  been 
made  much  more  practical  with  improvements  in  computing  power.  Ultimately  electric 
propulsion  systems  provide  the  ability  to  increase  the  life  of  a  satellite  due  to  more 
conservative  fuel  use  in  performing  orbital  maneuvers. 

Mission  Overview 

The  missions  analyzed  represent  a  wide  variety  of  orbital  maneuvers  that  a 
spacecraft  may  be  required  to  perform  in  its  lifetime.  The  missions  could  be  perfonned 
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separately  or  in  conjunction  with  one  another.  The  depiction  of  each  mission  analyzed  is 
shown  in  the  following  figures. 


Figure  1:  Mission  1  Depiction 

The  first  mission  was  a  180  degree  phase  change  mission.  A  phase  change 
maneuver  is  where  the  spacecraft  is  required  to  be  in  the  same  orbit  it  currently  is  in,  but 
be  in  a  different  location  in  that  orbit.  This  requires  a  change  in  the  true  anomaly  of  the 
spacecraft.  A  phase  change  of  180  deg  implies  that  the  spacecraft  is  required  to  be  on  the 
other  side  of  the  orbit  than  it  currently  is.  The  spacecraft  had  to  perform  the  phase 
change  in  12  hours  and  return  to  its  initial  position  in  30  days.  This  mission  is  shown  in 
Figure  1. 


23 


Chemical  -  Elecric  Profile 


Figure  2:  Mission  2  Deniction 

The  second  mission  involved  a  spacecraft  increasing  its  orbit  by  1000  km  in  12 
hours  then  returning  to  the  initial  orbit  in  30  days.  This  mission  is  depicted  in  Figure  2. 
The  thrust  profile  shown  was  for  an  initial  chemical  thrust  portion  followed  by  the 
electric  propulsion  system  performing  the  remainder  of  the  altitude  change  maneuver 
within  the  12  hour  time  constraint. 
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Figure  3:  Mission  3  Depiction 

The  third  mission  was  a  1 5  deg  plane  change  mission.  Electric  propulsion 
systems  are  normally  never  modeled  to  perform  a  plane  change  maneuver.  Plane  change 
maneuvers  are  generally  completed  with  an  impulsive  burn  at  the  crossover  location 
between  the  two  orbits.  This  occurs  twice  an  orbit  at  the  periapsis  and  the  apoapsis.  The 
initial  and  final  orbit  are  depicted  in  Figure  3.  The  impulsive  method  would  cause  the 
spacecraft  to  transfer  “instantaneously”  into  the  final  orbit.  The  following  figure  depicts 
what  a  low  thrust  plane  change  looked  like  for  Mission  3. 
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Figure  4:  Mission  3  Low-Thrust  Depiction 


The  electric  propulsion  would  only  be  able  to  apply  a  small  amount  level  of  thrust;  0.11 
N  for  the  system  analyzed  in  this  paper.  The  amount  of  time  the  electric  propulsion 
system  was  able  to  thrust  for  was  varied,  and  the  thrust  was  applied  in  a  specific  location 
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to  leave  the  orbit  parameters  the  same  and  change  only  the  inclination.  Equations  were 
develop  to  analyze  all  the  missions  and  were  programmed  using  MATLAB.  The  codes 
written  for  each  mission  are  included  in  the  appendices. 

Spacecraft  Specifications 

The  spacecraft  modeled  had  a  total  mass  of  180  kg  with  80  kg  allotted  for 
propellant.  The  mass  of  specific  components  were  not  calculated.  The  spacecraft  had  a 
multi-mode  propulsion  (MMP)  system  consisting  of  a  chemical  portion  that  had  a 
specific  impulse  (Isp)  of  235  sec  which  provided  a  thrust  of  22  N.  The  electric 
propulsion  system  had  an  Isp  of  600  sec  and  produced  a  thrust  of  0.1 1  N.  A  schematic  of 
this  propulsion  system  is  shown  in  Figure  5. 
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Figure  5:  Multi-Mode  Propulsion  Set  Up 


As  seen  in  Figure  5  the  electric  propulsion  thrusters  have  a  separate  power 
processing  unit  but  share  a  common  propellant  tank  and  piping  up  until  the  propellant 
management  system.  Combining  the  systems  this  way  makes  the  most  use  of  the 
common  elements,  such  as  the  gas  generator,  required  by  both  systems.  Many  different 
propellants  could  be  used  besides  hydrazine,  but  the  specific  impulse  and  thrust  values 
used  the  mission  analysis  were  representative  of  a  hydrazine  system.  To  analyze  a 
system  with  a  different  propellant  the  specific  impulse  and  thrust  values  could  easily  be 
changed. 

The  detailed  spacecraft  propulsion  system  component  weight  and  thrust  based  on 
power  was  not  included  in  this  analysis  but  is  commented  on  in  the  Future  Work  section. 
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The  required  propellant  mass  and  trip  time  for  only  the  chemical  system  or  only  the 
electric  system  were  compared  with  the  combined  system  with  various  thrust  profiles. 

The  180  kg  maximum  spacecraft  mass  was  chosen  because  it  is  the  maximum 
weight  allowed  on  an  Evolved  Expendable  Launch  Vehicle  (EELV)  Secondary  Payload 
Adapter  (ESPA)  ring.  The  ESPA  ring  allows  secondary  payloads  to  utilize  potentially 
unused  space  between  the  primary  payload  on  the  Evolved  Expendable  Launch  Vehicle 
and  on  the  upper  stage.  The  ESPA  ring  has  been  utilized  on  the  Atlas  V,  but  could  also 
be  used  on  the  Delta  IV.  Enforcing  mass  constraints  imposed  by  the  ESPA  ring  provides 
a  more  understandable  basis  for  the  capability  modeled.  Having  a  constrained  mission 
space  promotes  the  utilization  of  the  most  optimal  orbit  transfers  for  the  spacecraft. 

Initial  Orbit  Constraints 

The  spacecraft  was  initially  located  in  a  circular  orbit  at  an  altitude  of  500  km. 

The  initial  inclination  was  zero  degrees,  which  only  affected  one  of  the  missions 
analyzed.  The  drag  on  the  spacecraft  was  calculated  as  being  minimal  at  500  km  and  as 
such  was  not  included  in  any  necessary  change  in  velocity  (delta-v)  allotment 
calculations.  The  other  orbital  parameters,  right  ascension  of  the  ascending  node  (RAAN 
or  Q),  eccentricity  (ecc),  and  true  anomaly  (q)  were  all  modeled  initially  as  zero.  Since 
the  orbit  modeled  was  circular  the  argument  of  perigee  (to)  was  undefined.  The  code  was 
written  such  that  the  orbital  elements  could  be  updated  depending  on  the  orbit,  but  were 
not  specified  for  the  missions  analyzed. 
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Reference  Frame  Usage 

The  Perifocal  Reference  Frame  was  used  for  missions  1  and  2.  A  diagram  of  the 
Perifocal  Coordinate  system,  the  Geocentric-Equatorial  Reference  frame  and  the 
reference  frame  depicted  on  one  another  is  shown  below.  The  following  figures  are  from 
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Fundamentals  of  Astrodynamics  by  Bate,  Mueller,  and  White”. 


Figure  6:  Perifocal  Reference  Frame2 


This  system  was  used  because  there  were  no  out  of  plane  maneuvers  required  for 
the  altitude  raise/lower  mission  or  the  phase  change  mission.  The  Perifocal  reference 
frame  was  the  simplest  reference  frame  to  implement.  In  the  figure  n  represents  the  true 
anomaly.  The  plane  change  mission,  Mission  3,  involved  a  15  deg  plane  change;  for  that 
mission  the  Geocentric -Equatorial  Reference  frame  was  chosen  to  model  the  mission.  A 
diagram  of  the  Geocentric  Equatorial  Reference  frame  is  shown  Figure  7. 
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Figure  7:  Geocentric-Equatorial  Reference  Frame2 


As  can  be  seen  from  Figure  7  the  Geocentric-equatorial  reference  frame  is  well  suited  for 
a  plane  change  maneuver.  The  Perifocal  reference  frame  projected  onto  the  Geocentric- 
Equatorial  Reference  frame  is  depicted  below. 


Figure  8:  Perifocal  and  Geocentric-Equatorial  Reference  Frame2 
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The  transfer  between  the  perifocal  and  the  geocentric-equatorial  reference  frame  consists 
of  performing  a  3-1-3  rotation  with  the  Right  Ascension  of  the  Ascending  Node,  the 
Argument  of  Perigee,  and  the  inclination  of  the  orbit.  This  transfer  is  discussed  in  the 
development  of  equations  section  for  Mission  3.  The  process  is  outlined  in  Equation  18 
through  Equation  2 1 . 

Results 

The  results  for  each  mission  are  described  in  detail  in  the  following  sections  along 
with  the  development  of  equations.  Each  mission  is  discussed  in  its  entirety  before  the 
next  mission  is  discussed. 

Mission  1:  12  hour  180  degree  Phase  Change  and  Return 

To  complete  this  mission  the  spacecraft  was  required  to  perform  a  180  degree 
rephase  maneuver  within  12  hours  and  return  to  its  initial  orbit  in  30  days.  The  chemical 
system  performed  the  rephase  maneuver  via  a  Hohmann-type  maneuver.  The  spacecraft 
entered  a  transfer  orbit  that  caused  it  to  re-enter  the  original  orbit  when  the  rephase  angle 
was  exactly  180  degrees.  The  electric  propulsion  system  increased  its  orbit  through  a 
spiral  maneuver  then  returned  to  the  initial  orbit  when  the  180  deg  phase  change  was 
complete. 

Mission  1  Development  of  Equations 

To  determine  the  best  transfer  orbit  based  on  the  time  constraint  the  following 
equations  were  used: 
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(^finit  ^trans)^trans  —  ®  Equation  1 

Where  coinit  is  the  rotation  rate  of  the  initial  orbit  and  cotrans  is  the  rotation  rate  of  the 
transfer  orbit,  brans  is  the  total  amount  of  time  of  the  transfer  and  0  is  the  desired  rephase 
angle. 

^trans  _  nrotPtrails  Equation  2 

In  Equation  2,  nrot  represents  the  number  of  rotations  of  the  transfer  orbit  and  Ptrans 
represents  the  period  of  the  transfer  orbit.  Equation  2  was  substituted  back  into  Equation 
1 .  The  following  well  known  equation  for  the  period  of  an  orbit  was  also  used. 

2tt 

pinit  =  —  Equation  3 

“init 

Equation  3  was  rearranged  solving  for  Winit  and  inserted  into  Equation  1  which 
resulted  in  Equation  4.  The  same  equation  as  Equation  3  was  used  to  solve  for  wtrans  for 
the  transfer  orbit. 


G “ 

init 

Solving  for  Ptrans  resulted  in, 


init  rtrans 


2m  ^ 


nrntP, 


rotr  trans 


=  e 


PtranS  (27tnrot  +  1)  Pinit 


Equation  4 


Equation  5 


With  Equation  5,  the  number  of  rotations  nrot  was  varied  to  find  the  transfer  orbit  which 
met  the  mission  constraints.  Since  Pjmt  is  known  based  on  the  initial  orbit  as  well  as  the 
rephase  angle,  the  number  of  rotations,  nrot,  may  be  changed  to  find  a  variety  of  transfer 
orbits.  The  effect  of  changing  nrot  is  discussed  in  the  upcoming  Mission  1  Results 
section. 


To  calculate  the  low  thrust  electric  propulsion  transfer  orbit  the  resulting  change 
in  velocity  was  calculated  with  the  following  equation, 
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Equation  6 


AV  =  Ispg0logP^M 


The  velocity  of  the  spacecraft  was  updated  with  Equation  7.  Since  the  change  in  velocity 
for  an  electric  propulsion  system  is  very  small  with  a  small  time  step  and  the  change  in 
velocity  was  applied  perpendicular  to  the  velocity  vector  the  new  orbit  remained  circular. 

Vi+1  =  V*  ±  AV  Equation  7 

The  plus/minus  symbol  in  Equation  7  was  due  to  the  orbit  increasing  or  decreasing  in 
size.  This  was  changed  based  on  the  rephase  angle  completed  and  the  necessary  transfer 
time. 


rl+1  =  — ~ — 7  Equation  8 

(Vi+i)2 

The  radius  of  the  spacecraft  was  found  with  Equation  8.  The  period  of  the  spacecraft  was 
calculated  with  the  well  known  equation  for  the  period  of  a  circular  orbit, 


>i+l 


=  2tt 


(ri+1r 


Equation  9 


The  new  rotation  rate  was  calculated  with  a  rearranged  Equation  3.  The  new  true 
anomaly  may  be  calculated  with  the  following  equation, 

T|1+1  =  Ti1  +  o)1+1tstep  Equation  10 

where  tstep  is  the  desired  time  step.  The  rephase  angle  may  be  calculated  with  the 
following  equation, 


0  =  ^1  transfer  ~  ^initial  Equation  11 

Equation  1 1  was  used  to  calculate  the  rephase  angle  resulting  from  the  electric  propulsion 
system. 
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Mission  1  Code  Explanation 

The  MATLAB  code  developed  to  solve  rephase  missions  was  written  such  that 
the  optimal  nrot  value  would  be  calculated  based  on  a  maximum  trip  time.  The  spacecraft 
mass,  initial  orbit  parameters,  time  constraint,  electric  propulsion  system  values,  chemical 
propulsion  system  values,  and  desired  rephase  amount  were  inputs.  The  code  output  the 
transfer  time  and  propellant  mass  required  for  the  case  where  only  the  chemical 
propulsion  system  performed  the  maneuver,  as  well  as  for  the  case  where  only  the 
electric  propulsion  system  performed  the  maneuver.  This  output  reflected  if  the  electric 
propulsion  system  was  able  to  achieve  the  transfer  within  the  time  constraint. 

The  time  constraint  was  applied  for  the  chemical  system  alone,  but  it  was  not 
applied  for  the  electric  system  alone  because  the  electric  propulsion  system  was  unable  to 
perform  the  change  within  the  time  constraint.  The  combined  system  values  were  also 
automatically  generated,  using  the  time  left  between  the  optimal  chemical  propulsion 
system  transfer  time  and  the  time  constraint.  The  code  developed  for  this  mission  is 
included  in  Appendix  A. 

Mission  1  Results 

An  example  of  the  chemical  propulsion  transfer  orbit  in  the  Perifocal  reference 
frame  is  shown  in  Figure  9.  The  transfer  orbit  plotted  represents  the  chemical  transfer 
which  would  achieve  the  180  degree  rephase  with  the  least  amount  of  propellant  required. 
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Chemical  Propulsion  Transfer  Orbit 


Figure  9:  Mission  1  Chemical  Propulsion  Transfer  Orbit 

The  “o”  in  Figure  9  represents  the  location  of  where  the  spacecraft  would  be  had 
it  remained  in  the  initial  orbit.  The  “x”  represents  the  new  position  of  the  spacecraft 
resulting  from  the  transfer  orbit.  The  green  dashed  line  represents  the  transfer  orbit  that 
resulted  in  the  minimum  propellant  usage  while  still  meeting  the  mission  constraint  of  12 
hours.  The  total  mission  time  required  was  1 1.83  hours  and  24.58  kg  propellant  for  one 
180  degree  rephase  maneuver.  This  transfer  orbit  was  for  7  rotations  (nrot  )  values  from 
Equation  5. 

The  required  propellant  mass  and  time  for  the  electric  propulsion  and  chemical 
propulsion  systems  are  shown  in  Table  1  for  a  180  degree  rephase  and  return  maneuver 
within  the  12  hour  time  limit  for  each  transfer. 
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Table  1:  Mission  1  Values 


Mission 

Constraint 

Electric 

Propulsion 

System 

Chemical 

Propulsion 

System 

Combined 

System 

Transfer  Time  (hr) 

12.00 

46.96 

11.83 

12.00 

Propellant  Mass  (kg) 

<  80  kg 

5.52 

49.16 

49.06 

Delta  V  (m/s) 

N/A 

265.92 

676.91 

676.87 

The  values  in  Table  1  represent  the  entire  mission  with  a  12  hour  180  degree  rephase  and 
a  30  day  return.  The  combined  system  resulted  in  a  propellant  savings  of  around  0.1  kg. 
The  mass  savings  was  minimal  because  the  time  constraint  of  12  hours  prevented  the 
electric  propulsion  system  from  perfonning  much  of  the  rephase  maneuver.  More  time 
allotted  to  the  chemical  propulsion  system  enabled  the  spacecraft  to  transfer  into  a  more 
optimal  Hohmann  transfer  orbit  which  saved  more  propellant  than  thrusting  with  the 
electric  propulsion  system. 

Once  the  optimal  chemical  transfer  orbit  was  detennined  the  electric  propulsion 
system  was  modeled  to  thrust  for  the  excess  time  available.  That  decreased  the 
propellant  mass  only  slightly  because  the  electric  propulsion  system  had  a  thrusting  time 
of  around  1  hour.  The  exact  time  that  the  electric  propulsion  system  was  allotted  to  thrust 
for  may  be  seen  in  Figure  13  and  discussed  in  more  detail  there. 

The  number  of  rotations  ,  nrot,  used  in  the  calculation  of  the  transfer  orbit  had  a 
substantial  effect  on  the  total  propellant  mass  required  by  the  chemical  propulsion  system 
to  complete  the  maneuver.  This  is  reflected  in  Equation  5;  as  nrot  increases,  Ptrans 


37 


decreases  causing  the  transfer  semi-major  axis  to  become  less  and  the  period  of  the 
transfer  orbit  to  become  closer  to  Pmit.  As  Ptrans  approaches  Pmit  the  delta-v  required 
decreases.  The  relationship  between  time  constraint  and  the  propellant  required  for  the 
chemical  system  to  perfonn  the  maneuver  may  be  seen  in  Figure  10. 


Chemical  Only  Portion 


Figure  10:  Mission  1  Effect  of  Number  of  Rotations  on  Propellant  Mass 

The  point  of  least  propellant  mass,  around  24  kg,  corresponds  to  the  largest 
number  of  rotations  achievable  to  still  meet  the  constraint  of  time  and  rephase  angle.  The 
upper-right  point  represents  the  least  efficient  transfer  orbit.  That  transfer  would  achieve 
the  phase  change  in  the  least  time,  but  would  exceed  the  mass  constraint  of  80  kg 
propellant.  As  the  time  constraint  increased  the  trend  line  in  Figure  10  would  shift  down 
and  to  the  left  because  the  number  of  rotations  would  increase. 
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The  electric  propulsion  system  performed  a  spiral  orbit  transfer  to  achieve  the 
rephase  amount.  The  electric  propulsion  system  would  thrust  tangential  to  the  orbit  it 
was  currently  in.  The  new  orbit  after  the  burn  was  slightly  larger  or  smaller  depending 
on  the  mission  than  the  previous  orbit;  the  new  orbit  was  assumed  to  be  circular.  This 
assumption  was  valid  due  to  the  small  levels  of  thrust  and  small  incremental  change  in 
altitude  of  the  spacecraft.  Figure  1 1  shows  the  transfer  orbit  using  the  spiral  approach  for 
the  electric  propulsion  system. 


Electric  Propulsion  Transfer  Orbit 


Figure  11:  Mission  1  Electric  Propulsion  Transfer  Orbit 

The  electric  propulsion  system  alone  exceeded  the  12  hour  time  constraint.  The 
“o”  in  Figure  1 1  represents  the  location  of  where  the  spacecraft  would  be  had  it  remained 
in  the  initial  orbit.  The  “x”  represents  the  new  position  resulting  from  the  transfer  orbit. 
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The  transfer  orbit  resulted  in  the  rephase  angle  of  180  degrees  being  achieved,  regardless 
of  the  time  constraint,  in  Figure  11. 

The  gap  between  the  amount  of  propellant  required  by  the  chemical  system,  49. 16 
kg,  and  the  propellant  required  by  the  electric  propulsion  system,  8.04  kg,  provides  a 
large  trade  space  that  may  be  explored.  The  next  set  of  figures  explores  the  mission 
space  if  the  time  constraint  were  larger  than  12  hours.  The  time  was  increased  from  the 
1 1.83  hr  required  by  the  chemical  system  to  59.76  hr  required  by  the  electric  system.  In 
coupling  the  chemical  and  electric  propulsion  systems  the  transfer  time  would  increase 
but  inversely  the  propellant  mass  would  decrease. 

The  majority  of  the  transfer  maneuver,  with  a  12  hour  time  constraint,  must  be 
performed  by  the  chemical  system.  Decreasing  the  number  of  rotations  for  the  chemical 
propulsion  system  increases  the  amount  of  propellant  required  as  may  be  seen  in  Figure 
10.  The  largest  number  of  rotations  achievable  in  the  time  constraint  should  not  be 
decreased;  doing  so  greatly  increases  the  required  propellant  as  could  be  concluded  by 
examining  Equation  5. 

A  small  trade  space  may  be  used  which  utilizes  the  time  left  between  the  total 
time  the  chemical  propulsion  system  requires,  and  the  time  constraint.  The  electric 
propulsion  system  was  modeled  to  thrust  for  a  specified  amount  of  time  then  the  chemical 
propulsion  system  performed  the  remainder  of  the  rephase  maneuver  to  achieve  the  final 
constraints.  Figure  12  shows  the  propellant  mass  savings  which  was  calculated. 
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Figure  12:  Mission  1  Potential  Mass  and  Delta  V  Savings 

Figure  12  shows  the  potential  mass  savings  through  the  utilization  of  a  multi- 
mode  propulsion  system  for  a  variety  of  time  constraints.  The  results  portrayed  in  Figure 
12  represent  a  mission  that  was  performed  primarily  by  a  chemical  propulsion  system. 

On  the  top  plot  in  Figure  12  the  propellant  mass  value  for  a  transfer  time  of  12  hours 
matches  the  value  from  Figure  10.  The  stepped  appearance  in  Figure  12  results  from  the 
additional  number  of  rotations,  nrot  from  Equation  5,  which  may  be  performed  in  the 
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additional  time.  A  time  constraint  of  4  to  5  hours  would  result  in  2  rotations  possible. 
With  an  increasing  trip  time  the  rotation  number  would  increase  causing  the  transfer  orbit 
to  require  less  energy  resulting  in  the  propellant  required  to  decrease.  The  effect  of 
additional  rotations  on  required  propellant  becomes  smaller  as  seen  from  the  smaller 
steps  looking  like  a  gradually  sloped  line. 

The  electric  propulsion  system  thrusts  such  that  the  rephase  amount  of  180 
degrees  was  achieved  just  prior  to  the  time  constraint.  This  is  shown  in  Figure  13.  The 
upper  plot  in  Figure  12  shows  the  propellant  mass  required  to  perform  a  180  degree 
rephase  maneuver  as  well  as  the  amount  of  propellant  mass  required  for  a  combined 
chemical-electric,  or  multi-mode,  system.  The  lines  look  very  similar  from  this  plot,  but 
the  difference  between  them  is  shown  in  the  second  plot. 

The  middle  plot  shows  the  propellant  mass  savings  with  a  combined  system 
verses  the  trip  time  constraint.  For  a  trip  time  constraint  of  less  than  4  hours  there  are  no 
gains  in  having  an  electric  propulsion  system  perform  part  of  the  maneuver  because  the 
amount  of  time  that  it  would  be  able  to  thrust  for  was  so  minimal.  The  saw-tooth  look 
results  from  the  time  step  and  the  time  the  electric  propulsion  system  was  able  to  thrust 
for.  This  value  may  be  seen  in  Figure  13;  the  saw-tooth  look  of  this  figured  is  reflected 
in  Figure  12.  The  mass  savings  resulting  from  the  electric  propulsion  system  thrust  for 
0.1  hours  would  be  less  than  the  electric  propulsion  being  able  to  thrust  for  1.4  hours. 

The  fluctuating  time  the  electric  propulsion  was  able  to  thrust  for  causes  the  saw-tooth 
look  of  the  center  plot.  As  the  time  constraint  increased  the  propellant  mass  savings 
increased  also  the  total  delta-v  required  for  the  maneuver  decreased  as  shown  from  the 
bottom  plot  in  Figure  12. 
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As  the  trip  time  constraint  was  lengthened  the  chemical  propulsion  system  was 
able  to  perform  an  additionally  minimum  delta-v  Hohmann  transfer  orbit  resulting  in 
substantial  mass  savings. 


Time  Remaining  from  Time  Constraint  for  Combined  and  Chemical  Only 


Figure  13:  Mission  1  Time  Constraint  vs  Time  Left 

Figure  13  displays  the  amount  of  time  available  for  the  electric  propulsion  system 
to  thrust  for.  The  trip  time  constraint  was  varied  from  about  4  hours  to  65  hours  to 
complete  the  rephase  maneuver.  Each  time  constraint  resulted  in  a  different  Hohmann 
transfer  orbit  for  the  chemical  propulsion  system,  which  resulted  in  a  different  total  trip 
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time.  The  total  trip  time  was  subtracted  from  the  total  time  constraint  which  resulted  in 
the  green  “chemical”  propulsion  line.  That  time  was  then  used  by  the  electric  propulsion 
to  thrust  for;  since  the  time  available  required  fluctuated  the  mass  savings  also  fluctuated 
with  is  seen  in  the  jagged  appearance  in  Figure  12. 

When  the  electric  propulsion  system  was  utilized  the  propellant  mass  required 
decreased  slightly  and  the  time  constraint  was  met  within  minutes.  When  the  electric 
propulsion  system  was  modeled  to  thrust  for  longer  than  the  “time  left”  value  in  Figure 
13  there  was  a  substantial  increase  in  the  propellant  required.  That  was  due  to  the 
chemical  system  having  to  transfer  into  a  less  optimal  transfer  orbit  to  meet  the  rephase 
amount  within  the  time  constraint.  Figure  14  shows  the  difference  a  longer  time 
constraint  has  on  the  overall  propellant  mass  and  delta-v  required  to  complete  the  180 
degree  rephase  maneuver. 
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1800 


10%  -  80%  EP  for  180  deg  rephase  with  a  time  constraint 


Propellant  Mass  (kg) 


Figure  14:  Mission  1  Delta  V  vs  Propellant  Mass  with  Varying  Time  Constraint 


Figure  14  shows  how  the  change  in  mission  time  constraint  affected  the  total 
propellant  and  delta-v  necessary  to  complete  the  180  degree  rephase  mission.  The  12 
hour  time  constraint  resulted  in  the  largest  amount  of  propellant.  The  propellant  required 
decreased  as  the  time  constraint  increased.  The  lines  in  Figure  14  represent  a  range  of 
electric  propulsion  thrusting  times  that  vary  from  the  electric  propulsion  system  thrusting 
for  10%  of  the  total  time,  or  1.2  hours,  to  80%  of  the  total  time,  or  9.6  hours.  The 
chemical  system  would  utilize  the  remainder  of  the  time  to  complete  the  rephase 
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maneuver.  The  80%  electric  propulsion  thrust  profile  resulted  in  more  propellant  than  the 
10%  electric  propulsion  case  until  the  time  constraint  was  around  84  hours.  This  result 
was  due  to  the  chemical  propulsion  system  having  to  transfer  into  a  less  optimal  transfer 
orbit  to  achieve  the  rephase  angle  within  the  time  constraint. 

As  the  time  constraint  increased  the  range  of  propellant  mass  and  delta-v  required 
decreased.  This  can  be  seen  from  the  length  of  the  lines  becoming  shorter  in  Figure  14  as 
the  time  constrain  increased.  As  the  time  constraint  becomes  larger  the  difference 
between  the  80%  and  the  10%  electric  propulsion  values  decrease.  A  time  constraint  of 
84  hr  shows  the  80%  electric  system  using  slightly  less  propellant  than  the  10%  electric 
propulsion  system.  The  72  hour  time  constraint  resulted  in  the  primarily  chemical  system 
using  slightly  less  propellant  because  80%  of  72  hours  was  just  under  the  amount  of  time 
required  by  the  electric  propulsion  system  to  complete  the  maneuver. 

Rephase  Angle  Variations  on  Time  Constraint 

A  separate  analysis  investigated  different  rephase  angles  and  the  overall  time 
constraint.  A  large  time  constraint  was  applied  to  both  the  electric  and  chemical 
propulsion  systems  to  perform  a  rephase  maneuver.  The  results  may  be  seen  in  Figure 
15. 
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Electric  vs  Chemical  Propulsion  Propellant  Mass  for  180  deg  rephase 


Figure  15:  Mission  1  Large  Time  Constraint  on  EP  and  Chemical  Propulsion 


As  shown  from  the  plots  included  in  Figure  15,  both  the  chemical  and  electric 
propulsion  systems  benefit  from  an  increasing  transfer  time  limit.  The  chemical 
propulsion  system  can  achieve  the  rephase  angle  with  much  less  propellant  than  it 
initially  could  but  still  requires  around  1  kg  of  additional  propellant  to  achieve  the 
rephase  amount  at  longer  time  constraints  than  the  electric  propulsion  system  does. 
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Figure  15  shows  the  effect  of  a  larger  time  constraint  on  three  different  rephase 
values:  180,  90,  and  45  degrees.  The  different  rephase  amounts  may  be  seen  in  the  titles 
of  the  plots  from  Figure  15.  The  transfer  time  for  the  electric  propulsion  system  begins  at 
the  point  where  it  is  able  to  complete  the  entire  rephase  maneuver  on  its  own.  The 
electric  propulsion  system  thrusts  constantly  for  the  entire  time  constraint,  unless  it  is 
able  to  thrust  to  a  larger  orbit  then  wait  there  until  it  thrusts  to  return  to  the  initial  orbit. 
The  chemical  propulsion  system  performs  two  thrust  maneuvers:  one  go  into  a  transfer 
orbit  and  a  second  to  return  to  the  initial  orbit  once  the  rephase  amount  has  been 
achieved.  For  a  180  degree  rephase  angle  and  a  transfer  time  constraint  of  60  hours  an 
electric  propulsion  system  could  potentially  save  over  1  kg  of  propellant;  for  this  long 
duration  that  savings  is  around  25%  of  the  total  propellant  required. 

Ultimately,  using  electric  propulsion  for  part  of  the  time  constraint  will  result  in 
minor  mass  savings.  Longer  duration  time  constraints  will  result  in  additional  mass 
savings.  Varying  the  thrust  profile  decreases  the  necessary  propellant  mass  slightly,  but 
the  largest  driver  for  propellant  mass  required  in  a  large  rephase  mission  is  the  time 
constraint.  This  reflects  how  Multi-Mode  Propulsion  allows  real-time  optimization 
depending  on  required  mission  time  or  phase  angle. 

Mission  2:  Orbit  raise  to  1500  km  in  48  hours  and  return  in  30  days 

The  spacecraft  had  a  mass  of  180  kg  and  began  in  a  circular  orbit  at  an  altitude  of 
500  km.  To  complete  this  mission  the  satellite  must  perform  a  1000  km  altitude  increase 
maneuver  to  achieve  an  altitude  of  1500  km,  within  48  hours  and  return  to  the  initial  orbit 
in  30  days.  The  48  hour  time  constraint  could  not  be  achieved  by  using  only  the  electric 
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propulsion  system.  The  electric  propulsion  system  modeled  had  a  specific  impulse  of 
600  sec  and  a  thrust  of  0. 1 1  N.  The  electric  propulsion  system  took  2 17.68  hours  to 
complete  the  maneuver.  This  would  require  14.64  kg  of  propellant  and  499.49  m/s  delta- 
v.  The  chemical  system  was  modeled  to  perfonn  the  rephase  maneuver  by  doing  a 
Hohmann-type  maneuver;  it  completed  the  altitude  raise  in  0.88  hour  and  required  35.03 
kg  of  propellant.  These  values  are  shown  in  Table  2.  The  electric  propulsion  system  was 
able  to  perform  the  return  maneuver  in  the  30  day  time  constraint  with  the  least  amount 
of  propellant  so  the  following  thrust  techniques  were  applied  only  to  the  48  hour  time 
constraint  orbit  raising  maneuver. 

Several  thrust  variations  for  the  combined  system  were  modeled  for  this  orbit 
transfer.  The  combinations  varied  the  order  and  number  of  chemical  and  electric 
propulsion  thrust  segments,  as  well  as  the  duration  the  chemical  and  electric  was  allotted 
to  thrust  for.  The  total  time  for  the  electric  propulsion  system  to  thrust  for  was  varied 
based  on  the  overall  time  constraint  of  48  hrs.  The  time  for  the  chemical  system  did  not 
need  to  be  varied  because  it  was  modeled  as  perfonning  a  Hohmann  maneuver  and  the 
trip  time  was  relatively  constant  at  around  0.88  hr  which  was  half  the  period  of  the 
transfer  orbit.  This  fluctuated  slightly  depending  on  what  the  necessary  altitude  increase 
was.  The  electric  propulsion  system  had  the  total  time  it  could  thrust  for  varied  between 
0%  -  98%  of  the  total  time  constraint.  The  electric  propulsion  system  was  not  allowed  to 
thrust  for  longer  than  98%  of  the  time  constraint  because  the  chemical  system  was 
required  to  perfonn  the  remaining  altitude  change  in  the  remaining  time.  If  the  electric 
propulsion  system  would  thrust  for  more  than  98%  of  the  time  the  overall  time  constraint 
would  then  be  exceeded. 
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Mission  2  Development  of  Equations 


The  equations  used  to  calculate  the  chemical  transfer  for  an  orbit  raise  maneuver 

2  5 

were  the  well  known  equations  associated  with  a  Hohmann  maneuver"'  . 

atrans  =  rfinal~rinit  Equation  12 

With  the  initial  and  final  orbit  radius  defined,  the  period  and  energy  of  the  orbit  can 
easily  be  calculated. 


The  required  change 


Ptrans  =  2nJ^^  Equation  13 

Etrans  =  Equation  14 

^“trans 

in  velocity  can  then  be  calculated  with  the  next  group  of  equations. 


V, 


transl 


-  1 2  (r^-  +  Etrans) 
\  Vrfinai  / 


(-0- 


^trans2  1 2  (  +  Etrans 

'rfinal 


) 


Equation  15 


AVj  —  Vinit  Vtransl 

AV2  —  Vfinal  ^transl 

AV  =  AV1  +  AV2 

Equation  16 

The  delta-v  resulting  from  the  Equation  16  represents  the  total  delta-v  required  to  change 
orbits  from  the  initial  to  the  final  orbit.  Similar  equations  may  be  used  to  calculate  the 
electric  propulsion  transfer  as  were  previously  stated  in  the  Mission  1  Development  of 
Equations  section. 
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The  electric  propulsion  system  can  raise  the  altitude  of  the  orbit  in  a  spiral  transfer 


through  the  use  of  the  following  equations. 


T 

m  = - 

lsp§0 

in1+1  =  m1  —  mAt 

Equation  17 

Equation  18 

AV,+1  =  Ispg0log(mi+1) 

Equation  19 

Vi+1  =  ±  AVi+1 

Equation  20 

The  new  velocity,  from  Equation  20,  is  plus  or  minus  depending  on  the  direction  of  the 
applied  thrust  which  is  a  result  of  the  orbit  being  increased  or  decreased. 

rl+1  =  — ^—2  Equation  21 

(Vi+1)2 

If  the  orbit  is  circular  then, 

al+1  =  rl+1  Equation  22 

And  as  such  the  new  period  can  be  calculated  utilizing  Equation  13. 

Mission  2  Code  Development 

Three  main  MATLAB  codes  were  developed  to  analyze  this  mission.  The  first 
code  was  a  chemical  propulsion  altitude  change  code.  The  inputs  were  initial  altitude, 
final  altitude,  spacecraft  mass,  propulsion  system  characteristics,  and  trip  time 
constraints.  The  chemical  propulsion  system  was  modeled  utilizing  the  most  efficient 
altitude  change  maneuver,  a  Hohmann  transfer.  The  transfer  orbit  was  calculated  and  the 
spacecraft’s  position,  required  delta-v,  trip  time,  and  propellant  required  were  outputs  for 
an  impulsive  burn. 

The  second  code  developed  modeled  the  electric  propulsion  transfer.  The 
electric  propulsion  code  had  the  same  inputs  as  the  chemical  propulsion  system  but  with 
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available  power  as  an  additional  input.  The  available  power  was  not  incorporated  into 
the  transfer.  It  was  assumed  that  the  power  available  was  constant  and  provided  the 
specific  impulse  of  600  sec  and  thrust  of  0.1 1  N.  The  delta-v  was  applied  tangentially 
and  the  updated  orbital  elements  were  calculated.  The  thrust  was  modeled  as  being 
continuous  for  the  time  allotment. 

The  third  MATLAB  script  that  was  created  utilized  both  the  chemical  and  electric 
propulsion  codes  and  varied  the  initial  inputs  based  on  the  percent  time  allotment  for  each 
propulsion  system.  The  chemical  and  electric  propulsion  codes  were  run  numerous  times 
until  the  final  orbit  corresponded  with  the  indicated  final  orbit  conditions  with  the  thrust 
profile  specified.  The  MATLAB  codes  written  to  model  Mission  2  are  included  in 
Appendix  B. 

Mission  2  Results 

The  combined  systems  analyzed  were:  “Electric  -  Chemical”,  “Electric  - 
Chemical  -  Electric”,  “Electric  -  Chemical  -  Electric  remaining  time”,  “Chemical  - 
Electric”,  and  “Chemical  -  Electric  -  Chemical”  for  the  orbit  raise  maneuver  in  the  48  hr 
time  constraint.  Additional  descriptions  of  the  combined  systems  and  their  orbit  profiles 
are  below. 

The  combined  system  values  listed  in  Table  2  represent  the  “Electric  -  Chemical 
-  Electric”  system.  This  system  involved  the  electric  propulsion  system  thrusting  for 
49%  of  the  time  constraint,  the  chemical  propulsion  performing  a  Hohmann  maneuver, 
then  the  EP  system  thrusting  for  another  49%  of  the  time  constraint  to  reach  the 
destination  orbit.  The  profile  of  that  transfer  orbit  is  represented  in  Figure  20.  The  best 
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combined  system,  alongside  the  electric  and  chemical  propulsion  systems  perfonning  the 
transfer  alone  are  shown  in  Table  2. 


Table  2:  Mission  2  Values 


Mission 

Electric 

Chemical 

Combined 

Constraint 

Propulsion 

Propulsion 

System 

System 

System 

Transfer  Time 

48.00 

217.68 

0.88 

47.97 

(hr) 

Propellant 

<  80  kg 

14.64 

35.03 

30.24 

Mass  (kg) 

Delta  V  (m/s) 

N/A 

499.49 

498.98 

488.97 

The  combined  system,  the  “Electric  -  Chemical  -  Electric”  profile  was  only  one 
of  numerous  thrust  profiles  modeled.  Figure  16  shows  the  propellant  and  change  in 
velocity  required  for  a  variety  of  thrust  profiles.  The  “Electric  -  Chemical  -  Electric” 
maneuver  required  the  least  amount  of  propellant  of  the  various  thrust  profiles.  The 
propellant  mass  listed  for  the  mission  constraint  represents  the  total  propellant  mass 
available  for  the  orbit  raise  and  return.  Using  only  the  chemical  propulsion  system  to 
complete  the  entire  maneuver  would  require  70.06  kg  of  propellant  but  would  achieve  the 
maneuver  quickly.  Using  only  the  electric  propulsion  system  would  exceed  the  48  hour 
transfer  limit,  but  would  result  in  twice  the  amount  of  remaining  propellant  for  future 
maneuvers. 
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Utilizing  the  combined  multi-mode  propulsion  system  would  result  in  a  savings  of 
around  5  kg  for  the  orbit  raise  maneuver.  Figure  16  displays  the  various  thrust  profiles 
which  were  analyzed. 


250 


200  - 


150  - 


CD 

E 


100  - 


50  - 


c 

l 

O  EP  Only  System 

A  Chemical  Only  System 

X  Electric  -  Chemical 

98%  of  Time  Electric  -  Chemical  -  Electric 

+  49%  ofTime  Electric.  Chemical,  49%  of  time  Electric 

□  Chemical  -  98%  of  Time  Electric 

Chemical  -  98%  ofTime  Electric  -  Chemical 

■ffixXf 

_ 

_ 

- i - A 

h. - 

10 


15 


20  25  30 

Propellant  Mass  (kg) 


35 


40 


Figure  16:  Mission  2  Propellant  Mass  vs  Trip  Time  for  Thrust  Variations 


All  the  data  points  in  Figure  16  represent  separate  thrust  profiles  analyzed  as 
compared  against  the  pure  electric  system  and  the  pure  chemical  system.  All  the  profiles 
were  run  for  a  variety  of  thrust  times  for  the  electric  propulsion  system.  The  points 
shown  in  the  figure  represent  the  least  amount  of  propellant  resulting  from  the  various 
thrust  profiles.  The  thrust  profiles  all  require  close  to  the  48  hour  time  constraint.  If  the 
time  constraint  were  longer  the  thrust  profiles  would  gradually  move  upward  and  to  the 
left  in  the  figure  until  they  reached  the  electric  propulsion  system  only  point.  The  electric 
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propulsion  system  only  point  would  move  upward  and  to  the  left  with  increasing  specific 
impulse.  The  specific  impulse  used  for  the  electric  propulsion  system  was  600  sec.  The 
thrust  profiles  with  a  varying  trip  time  ranging  about  1  hour  to  48  hours  is  shown  in 
Figure  17. 


Propellant  Mass  vs  Trip  Time  for  100%  Chemical  to  2%  Chemical 


Figure  17:  Mission  2  Thrust  Profiles  vs  Propellant  Mass 

Each  thrust  profile  was  modeled  with  the  electric  propulsion  system  thrusting  for 
0%  -  98%  of  the  total  time  constraint  which  resulted  in  the  electric  propulsion  system 
thrusting  for  around  47  hours.  All  of  the  profile  lines  originate  in  the  lower  right  hand 
comer  which  shows  the  total  propellant  mass  decreasing  as  the  trip  time  increases.  The 
only  exception  was  in  the  “Electric  -  Chemical  -  Electric  remaining  time”  line 
represented  by  the  triangles.  This  line  begins  at  the  top  left  of  Figure  17  for  the  0%  of  the 


55 


total  time  constraint  for  the  electric  propulsion  system.  This  is  discussed  in  more  detail 
in  the  upcoming  “Electric  -  Chemical  -  Electric  remaining  time”  section. 

Of  the  five  separate  thrust  profiles  shown  in  Figure  17,  the  “Electric  -  Chemical  - 
Electric”,  “Chemical  -  Electric”,  and  the  “Electric  -  Chemical  -  Electric  remaining  time” 
provide  the  lowest  propellant  mass  required.  The  “Electric  -  Chemical  -  Electric”  line  in 
Figure  17  appears  nearly  identical  to  the  “Chemical  -  Electric”  line.  The  descriptions  of 
these  maneuvers  are  described  below. 

All  the  thrust  profiles  below  meet  the  mission  constraints  of  mass  and  time.  The 
maximum  time  the  electric  propulsion  was  allowed  to  thrust  for  was  98%  of  the  time 
constraint  which  was  around  47  hours.  This  was  because  the  chemical  propulsion  system 
took  half  an  orbit  to  complete  its  Hohmann  transfer  maneuver  to  reach  the  final  orbit 
within  the  time  constraint.  All  the  profiles  listed  had  a  maximum  electric  propulsion 
thrust  time  of  47  hours  and  a  minimum  thrust  time  of  0  hours  which  would  be  an  entirely 
chemical  propulsion  transfer. 

Electric  -  Chemical 

This  thrust  profile  involved  the  electric  propulsion  system  performing  the  first 
impulse  ranging  from  0  hours  to  47  hours.  A  diagram  of  this  thrust  profile  may  be  seen 
in  Figure  18. 
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Electric  •  Chemical  Profile 


Figure  18:  Mission  2  Electric  -  Chemical  Profile 

The  amount  of  time  the  electric  propulsion  system  was  allotted  to  thrust  for  was 
varied  from  0%  of  the  total  time  to  98%  of  the  total  time,  0-47  hours,  with  the  final 
altitude  achieved  by  the  electric  propulsion  system  acting  as  the  initial  altitude  for  the 
chemical  Hohmann  maneuver.  Figure  18  displays  the  orbit  for  the  maximum  time  case 
for  the  electric  propulsion  system.  As  the  electric  propulsion  system  thrusts  for  a  larger 
percent  of  the  time,  the  total  propellant  mass  required  decreases.  At  the  final  time 
constraint  where  the  electric  propulsion  system  thrusts  for  47  hours,  the  altitude  changes 
from  6878  km  -  7070.66  km,  which  is  an  altitude  change  of  192.66  km.  The  electric 
propulsion  transfer  portion  causes  the  orbit  to  remain  circular  and  the  chemical 
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propulsion  system  to  perform  a  smaller  altitude  raise.  The  propellant  mass  required  for 
this  thrust  profile  was  3 1 .00  kg.  The  system  values  are  listed  in  Table  3. 

Chemical  -  Electric  -  Chemical 

This  thrust  profile  was  analyzed  with  the  electric  propulsion  system  using  0%  - 
98%  of  the  total  time.  The  altitude  achieved  in  the  specified  burn  time  by  the  electric 
propulsion  system  was  used  as  a  starting  point  for  an  iteration  to  determine  what  altitude 
increase  the  chemical  system  would  need  to  provide.  Allowing  the  electric  propulsion 
system  to  thrust  for  0  hours  resulted  in  the  least  optimal  transfer  because  the  chemical 
system  would  perform  2  separate  Hohmann  maneuvers  to  achieve  the  final  orbit.  The 
remaining  altitude  change  to  complete  the  maneuver  was  split  between  the  two  chemical 
propulsion  segments.  Each  chemical  propulsion  segment  performed  roughly  the  same 
altitude  increase.  The  electric  propulsion  system  performed  the  altitude  increase  in 
between  the  chemical  propulsion  Hohmann  maneuver  segments.  This  thrust  profile  is 
shown  in  Figure  19. 
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Figure  19:  Mission  2  Chemical  -  Electric  -  Chemical  Profile 

Figure  19  shows  the  mission  profile  for  the  maximum  time  electric  propulsion 
case.  As  seen  in  the  figure  this  thrust  profile  involved  the  chemical  propulsion  system 
performing  a  Hohmann  transfer  to  a  specified  altitude,  the  electric  propulsion  performing 
a  spiral  transfer  for  a  specified  amount  of  time,  and  the  chemical  propulsion  system 
performing  another  Hohmann  transfer  to  achieve  the  final  altitude.  The  minimum 
propellant  mass  required  using  this  thrust  profile  was  3 1 .82  kg.  The  system  values  are 
listed  alongside  the  other  thrust  profile  values  in  Table  3.  This  thrust  profile  resulted  in 
the  largest  amount  of  propellant  required  of  the  combined  systems  analyzed. 
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Electric  -  Chemical  -  Electric 


This  thrust  profile  was  run  with  the  electric  propulsion  system  using  0%  -  98%  of 
the  total  time.  For  the  0%  electric  propulsion  case,  the  propellant  mass  was  the  same  as 
the  chemical  propulsion  only  maneuver.  The  time  the  electric  propulsion  system  would 
thrust  for  was  varied  between  0  %  to  49%  for  each  electric  propulsion  segment  before 
and  after  the  chemical  portion.  The  profile  of  this  maneuver  is  shown  below  in  Figure 
20. 


Electric  -  Chemical  -  Elecric  Profile 


Figure  20:  Mission  2  Electric  -  Chemical  -  Electric  Profile 


Figure  20  shows  the  mission  profile  for  the  electric  propulsion  system  thrusting 
for  a  total  of  47  hours.  An  iterative  process  was  used  such  that  electric  propulsion  system 
would  thrust  for  half  of  the  total  allotted  time,  then  the  chemical  system  would  perform  a 
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Hohmann  maneuver  and  increased  the  altitude  enough  such  that  the  final  electric 
propulsion  segment  could  attain  the  final  altitude  of  7878  km  within  the  amount  of  time 
allotted.  The  system  values  are  listed  alongside  the  other  thrust  profile  values  in  Table  3. 
This  thrust  profile  resulted  in  the  least  propellant  required  of  all  the  combined  systems 
modeled. 

The  thrust  profile  shown  in  Figure  20  displays  the  difference  in  utilizing  the 
electric  propulsion  system  at  lower  altitudes.  The  blue  portion  representing  the  first 
electric  propulsion  segment  performs  less  of  the  altitude  increase  than  the  red  line 
representing  the  second  altitude  increase  maneuver  though  they  are  thrusting  for  the  same 
amount  of  time.  The  electric  propulsion  system  was  able  to  perform  more  of  the  altitude 
change  at  a  higher  altitude  due  to  the  increasing  delta-v  resulting  from  the  decreasing 
overall  spacecraft  mass. 

Electric  -  Chemical  -  Electric  remaining  time 

This  thrust  profile  had  the  initial  electric  propulsion  system  thrust  for  0  %  -  98% 
of  time  requirement.  The  electric  system  would  thrust  for  a  specified  amount  of  time 
then  the  chemical  system  would  perform  a  Hohmann  maneuver  followed  by  the  electric 
propulsion  system  thrusting  up  until  the  time  constraint  of  48  hr.  This  thrust  profile  was 
a  slight  modification  on  the  “Electric  -  Chemical  -  Electric”  profile. 

The  achieved  altitude  was  calculated  iteratively.  The  altitude  the  chemical  system 
was  required  to  attain  was  adjusted  such  that  the  2nd  electric  propulsion  thrust  duration 
achieved  the  altitude  within  the  time  constraint.  The  minimum  propellant  mass  required 
was  at  the  initial  case  of  0%  electric  propulsion,  which  resulted  in  roughly  the  same 
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propellant  mass  as  the  “Chemical  -  Electric”  thrust  profile  where  the  electric  propulsion 
was  thrusting  for  98%  of  the  time.  The  reason  they  didn’t  achieve  the  same  results  was 
because  the  electric  propulsion  system  the  “remaining  time”  profile  was  allowed  to  thrust 
for  slightly  longer.  This  thrust  profile  required  the  least  propellant  due  to  the  electric 
propulsion  system  providing  a  larger  altitude  increase  when  utilized  later  in  the  trajectory 
when  the  spacecraft  had  a  lower  overall  mass.  The  orbit  profile  for  this  mission  is  shown 
in  Figure  21. 

98%  Time  0%  Time 

Electric  -  Chemical  -  Elecric  Profile  Electric  -  Chemical  -  Elecric  Profile 


Figure  21:  Mission  2  Electric  -  Chemical  -  Electric  remaining  time  Profile 

The  plot  on  the  left  in  Figure  21  displays  the  case  where  the  electric  propulsion 
system  initially  thrusts  for  98%  of  the  total  time  constraint.  The  plot  on  the  right  displays 
the  case  where  there  is  no  initial  electric  propulsion  and  the  majority  of  the  maneuver  is 
completed  by  the  chemical  propulsion  system,  then  the  electric.  It  can  be  noted  from 
these  plots  that  in  the  right  hand  plot  the  electric  propulsion  system  performs  a  greater 
amount  of  the  altitude  change  maneuver.  This  results  in  the  right  hand  case  of  0% 
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electric  propulsion  having  a  lower  required  propellant  to  complete  the  maneuver.  The 
result  for  the  0%  electric  propulsion  thrust  duration  and  the  98%  electric  thrust  duration 
are  listed  alongside  the  other  thrust  profile  values  in  Table  3. 

Chemical  -  Electric 

The  “Chemical  -  Electric”  thrust  profile  had  the  chemical  propulsion  system 
thrust  first  then  the  electric  propulsion  system  would  thrust  for  a  specified  amount  of 
time.  This  thrust  profile  is  shown  in  Figure  22. 


Chemical  -  Elecric  Profile 


Figure  22:  Mission  2  Chemical  -  Electric  Profile 

As  can  be  seen  from  Figure  22,  the  chemical  propulsion  system  initially 
performed  a  Hohmann  maneuver  then  the  electric  propulsion  system  perfonned  the 
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remainder  of  the  mission  with  a  spiral  transfer.  The  calculation  of  the  altitude  that  the 
chemical  propulsion  system  must  transfer  to  was  completed  iteratively  to  meet  the 
mission  constraints.  This  thrust  profile  required  30.25  kg  of  propellant  mass  to  achieve 
the  1000  km  altitude  increase.  The  system  values  are  listed  alongside  the  other  thrust 
profile  values  in  Table  3. 


Table  3:  Mission  2  Thrust  Profile  Values 


Electric  - 

Chemical 

Chemical 

f  leet ric  - 

Chemical 

Electric  - 

Chemical 

-  Electric 

Electric  - 

Chemical 

fleet tie 

remaining 

time 

Chemical 

-  Electric 

Transfer 

Time  (hr) 

47.99 

47.90 

47.97 

48.00  (47.98) 

47.95 

Propellant 

Mass  (kg) 

31.00 

31.98 

30.24 

31.35  (30.25) 

30.25 

Delta  V  (m/s) 

499.26 

492.77 

488.57 

498.88 

(499.17) 

499.14 

Electric 

Propulsion 

Altitude 

Change  (km) 

192.66 

226.45 

247.73 

193.09 

(266.19) 

266.06 
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Some  interesting  items  to  note  from  Table  3  are  that  the  “Electric  -  Chemical  - 
Electric  remaining  time”  has  two  separate  numbers  listed.  These  represent  the  two 
different  plots  shown  in  Figure  2 1,  for  the  two  separate  cases  of  98%  of  the  time  electric 
propulsion,  which  are  the  first  column  of  numbers  and  the  0%  of  time  electric  propulsion 
which  are  the  second  column  of  numbers.  The  0%  of  time  electric  propulsion  results  in 
the  thrust  profile  to  be  almost  the  same  as  a  “Chemical  -  Electric”  profile.  It  is  not 
exactly  the  same  because  the  amount  of  time  that  the  electric  propulsion  system  was 
modeled  to  thrust  for  is  not  the  same. 

The  best  thrust  profile  appears  to  one  where  an  electric  impulse  is  before  and  after 
the  chemical  impulse.  This  had  a  very  similar  propellant  usage  as  was  required  by  a 
“Chemical  -  Electric”  profile.  Having  the  electric  impulse  after  the  chemical  impulse 
enables  the  electric  system  to  perform  more  of  the  altitude  change  maneuver.  Having  the 
chemical  system  perform  the  altitude  change  maneuver  starting  at  a  lower  altitude 
appears  to  require  slightly  more  propellant  causing  the  “Electric  -  Chemical  -  Electric” 
thrust  profile  to  use  slightly  less  propellant  than  the  “Chemical  -  Electric”  case. 

Figure  23  compares  the  average  thrust  against  the  propellant  mass  and  trip  time 
for  the  electric  propulsion  thrusting  from  0%  -  98%  of  the  total  time  constraint. 
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Mission  2:  1000  km  orbit  raise  for  100%  Chemical  to  2%  Chemical 


Mission  2:  1000  km  orbit  raise  for  100%  Chemical  to  2%  Chemical 


Figure  23:  Mission  2  Average  Thrust  for  Multiple  Thrust  Profiles 


As  may  be  seen  in  Figure  23  the  largest  amount  of  propellant  was  required  by  the 
“Chemical  -  Electric  -  Chemical”  thrust  profile.  The  rest  of  the  thrust  profiles  appear 
almost  identical  for  the  various  thrusting  schemes.  The  “Electric  -  Chemical  -  Electric 
remaining  time”  was  different  than  the  other  profiles  because  the  trip  time  is  always 
around  48  hr.  From  the  lower  plot  in  Figure  23  it  may  be  seen  that  all  the  points  overlap 
for  that  thrust  profile;  that  was  because  the  full  time  constraint  was  utilized  by  this  system 
as  opposed  to  the  other  thrust  profiles.  Lower  average  thrust  results  in  lower  propellant 
required  and  longer  trip  time. 
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Looking  at  the  “Electric  -  Chemical  -  Electric  remaining  time”  profile  alone 
concludes  that  using  chemical  thrust  then  electric  thrust  is  better  than  using  electric  thrust 
then  chemical  thrust.  The  least  amount  of  propellant  resulted  in  the  thrust  profile  with  the 
chemical  situated  between  two  equivalent  electric  propulsion  segments.  The  effect  of 
changing  the  percent  electric  thrust  duration  on  the  propellant  required  for  the  different 
thrust  profiles  is  shown  in  Figure  24. 


Figure  24:  Mission  2  Effect  of  Percent  Electric  Propulsion  on  Propellant  Mass 

In  general  the  propellant  mass  required  decreases  as  the  percent  electric 
propulsion  increases.  This  is  switched  for  the  “Electric  -  Chemical  -  Electric  remaining 
time”  case.  The  arrows  indicate  that  for  all  thrust  profiles  except  the  “Electric  - 
Chemical  -  Electric  remaining  time”  case  the  trip  time  decreases  as  going  towards  the  left 
hand  side  of  the  plot. 
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For  a  1000  km  altitude  change  maneuver  with  a  48  hour  time  constraint,  utilizing 
a  multi-mode  propulsion  system  can  decrease  the  propellant  mass  required  from  35  kg  to 
30  kg.  The  entire  mission  with  an  altitude  raise  performed,  and  a  return  in  30  days  would 
require  around  70  kg  of  propellant  for  a  chemical  system  to  perfonn  alone.  With  a 
combined  system  the  total  propellant  used  would  be  reduced  to  44.85  kg  which  is  a 
decrease  of  36%  in  propellant  use. 

Mission  3:  15  degree  Plane  Change  with  Time  Constraint 

The  spacecraft  initially  had  a  mass  of  180  kg  with  80  kg  available  for  propellant. 
The  spacecraft  was  located  in  a  circular  orbit  at  an  altitude  of  500  km.  The  destination 
orbit  was  at  an  altitude  of  500  km  and  circular  with  at  an  inclination  of  15  deg.  The  plane 
change  was  required  to  be  completed  in  less  than  90  days.  The  thrust  vector  direction 
was  calculated  such  that  the  transfer  orbit  remained  essentially  circular. 

The  initial  orbit  and  the  final  orbit  with  an  inclination  of  1 5  degrees  are  depicted 
in  Figure  25  in  the  Geocentric  Equatorial  reference  frame. 


68 


Initial  Orbit 
Final  Orbit 


Figure  25:  Mission  3  Geocentric  Equatorial  Reference  Frame 

Figure  25  shows  a  scaled  version  of  the  initial  and  final  orbit  in  the  Geocentric- 
Equatorial  reference  frame  and  the  two  crossover  points  that  occur.  The  electric 
propulsion  system  was  modeled  initially  to  thrust  at  the  intersection  (crossover)  locations. 
The  crossover  point  was  where  the  chemical  propulsion  system  performed  the  cranking 
maneuver. 


Mission  3  Development  of  Equations 

For  a  plane  change  maneuver  the  perifocal  reference  frame  could  not  be  the  only 
reference  frame  utilized.  The  Geocentric  Equatorial  Reference  frame  is  better  suited  for 
plane  change  maneuvers.  The  method  to  be  followed  to  perfonn  an  impulsive  plane 
change  is  shown  next. 
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The  velocity  vector  of  the  spacecraft  was  broken  into  a  transverse  and  a  radial 
component4’5’6’7. 

Vx  =  Vrlurl  +  V±1u±1  Equation  23 

V2  =  Vr2ur2  +  V12u12  Equation  24 

In  the  equations  above  the  “1”  denotes  the  initial  orbit  and  the  “2”  denotes  the 
final  orbit.  The  total  change  in  velocity  to  transfer  from  the  initial  orbit  to  the  final  orbit 
may  be  calculated  by, 

AV  =  V2  —  Vx  Equation  25 

The  delta-v  was  also  calculated  with  the  same  equation  as  Equation  25,  except  with  the 
velocity  in  the  final  orbit  being  in  time  step  ahead  of  the  velocity  vector  in  the  initial 
orbit.  Doing  that  resulted  in  more  propellant,  so  Equation  25  was  utilized. 

AV  =  Vr2ur2  +  V12u12  —  Vrlurl  —  Vxlu±1  Equation  26 

AV2  =  AV  •  AV  Equation  27 

Multiplying  the  above  equations  and  utilizing  trigonometry  identities  resulted  in: 

AV  =  AV  =  V(Vr2  -  Vrl)2  +  V122-Vx12  -  2V11V12cos(8)  Equation  28 
Where  5  represents  the  inclination  change  between  the  two  orbits.  To  perform  an 
impulsive  delta-v  maneuver  the  spacecraft  must  thrust  at  the  line  of  intersection  between 
the  initial  orbit  and  the  desired  orbit;  this  is  also  referred  to  throughout  the  remainder  of 
the  paper  as  the  crossover  point.  Performing  the  plane  change  at  the  apoapsis  results  in 
the  radial  component  of  velocity  becoming  zero  such  that  the  transverse  portion  of 
velocity  can  be  treated  as  the  actual  velocity.  Applying  the  aforementioned 
simplifications  resulted  in  the  following  equation: 

AV  =  Ivf  +  V2  -  2V2V1cos(S)  Equation  29 
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Since  the  initial  and  final  orbits  for  this  mission  were  the  same  except  for  the  difference 
in  inclination  the  equation  simplifies  further  to  become, 

AV  =  2Vsin  Q)  Equation  30 

Since  the  thrust  is  applied  at  the  crossover  nodes  VI  =  V2  =  V,  which  is  a  well  known 
equation  for  plane  change  ’  .  This  equation  is  intended  for  a  large  impulse,  which 
excludes  an  electric  propulsion  transfer.  The  resulting  delta-v  from  this  equation  was 
used  as  if  it  were  applicable  for  an  electric  propulsion  system  to  compare  the  resulting 
propellant  mass  with  more  exact  calculations. 


The  equation  used  to  calculate  the  propellant  required  based  on  delta-v  is: 


(  M 

=  nij  1  —  ev'sPg' 


Equation  31 


This  equation  resulted  in  103.99  kg  of  propellant  required  for  the  chemical  propulsion 
system  which  exceeded  the  propellant  available  for  the  maneuver.  Utilizing  this  same 
equation  for  an  electric  propulsion  system  resulted  in  5 1 .52  kg  of  propellant  required  for 
the  higher  specific  impulse  of  the  electric  propulsion  mode. 

The  electric  propulsion  system  was  modeled  by  transferring  the  spacecraft 
position  and  velocity  vector  between  the  Perifocal  and  the  Geocentric-Equatorial 
reference  frame.  Since  the  altitude  of  the  initial  circular  orbit  was  known  the  following 
equation  was  used  to  transfer  the  known  altitude  into  the  position  in  the  Perifocal 
reference  frame1. 

r  =  rcos(q)p  +  rsin(q)q  Equation  32 

The  velocity  may  similarly  be  transferred.  In  the  equations  q  represents  the  true 
anomaly.  In  the  equation  below  “p”  is  the  semi-latus  rectum,  for  a  circular  orbit  this  is 
equal  to  the  magnitude  of  the  position  vector. 
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V  =  (Jjj)  [— sin(rj)p  +  (e  +  cos(q))q] 


Equation  33 


These  vectors  were  transferred  into  the  Geocentric-Equatorial  reference  frame  through 


the  use  of  the  following  rotation  matrices. 


Where, 


?ijk  =  fpqwRaWRiCn:  -  i)R3(<o) 


R3(o)) 


cos(to)  sin(o))  0 
— sin(o))  cos(o))  0 
0  0  1 


Ri(rr-i) 


10  0 
0  cos(tt  —  i)  sin(jt  —  i) 
.0  — sin(-rr  —  i)  cos(tt  —  i). 


R3(fl) 


cos(ft)  sin(ft)  0 
— sin(ft)  cos(ft)  0 
0  0  1 


Equation  34 


Equation  35 


Equation  36 


Equation  37 


The  same  process  was  used  to  transform  the  velocity  vector.  The  direction  of  the 
necessary  velocity  vector  may  be  calculated  from  this  new  form  of  the  velocity  vector. 

^ijkdiff  —  ^ijk  final  ^ijk  transfer  Equation  38 

The  velocity  vector  was  made  non-dimensional  with  the  following  equation, 


_  vijkdiff 

Vdiff  “ 


Equation  39 


The  straight  brackets  represent  the  magnitude  of  the  vector.  The  change  in  velocity 
depends  on  the  level  of  thrust  (T)  and  the  mass  of  the  spacecraft  (msc)  as  shown  in  the 
equations  below. 


Av  =  f  —  dt 

msc 


Constant  Thrust 


Tj 


dt  small  time  step  Ttstep 

msc  msc 


Equation  40 
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If  thrust,  T,  is  assumed  to  be  constant  it  may  be  taken  out  of  the  integral.  Also,  if  the 
time  step  and  change  in  mass  of  the  spacecraft  is  small  it  may  approximated  outside  of 
the  integral. 

The  change  in  velocity  vector  was  calculated  as  shown  below. 

Av  =  Av  *  vdiff  Equation  41 

The  equation  above  was  used  to  update  the  spacecraft’s  position  and  velocity  vector. 

?ijk'+1  =  fijk'  +  v1)k  *  tburn  Equation  42 

vijk'+1  =  vijk'  +  gijk't  +  Av  Equation  43 

Equation  43  and  44  were  used  to  update  the  spacecraft  state  vector.  The  updated  state 
was  based  on  the  previous  state,  as  well  as  the  effect  of  gravity  and  thrust.  Gravity  was 
initially  calculated  in  the  perifocal  reference  frame  then  transferred  into  the  Geocentric- 
Equatorial  reference  frame  through  a  3-1-3  rotation;  the  same  as  shown  for  the  position  in 
Equation  35. 

Mission  3  Code  Development 

The  development  of  the  MATLAB  scripts  for  Mission  3  required  the  largest 
amount  of  time.  They  involved  transferring  between  the  Perifocal  and  the  Geocentric- 
Equatorial  reference  frame.  The  initial  orbit  of  the  spacecraft  was  modeled  to  incorporate 
the  effects  of  gravity  on  the  spacecraft  causing  it  to  naturally  “fall”  around  the  earth.  The 
state  vector  was  composed  of  the  position  and  velocity  vectors  and  was  updated  each 
time  step  with  the  effect  of  gravity  and  any  thrust  that  occurred.  The  direction  of  the 
thrust  was  described  in  the  development  of  equations  section.  If-then  statements  were 
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utilized  to  turn  on  an  off  the  thrust.  When  the  spacecraft  was  not  thrusting  the  state 
vector  was  updated  based  only  on  the  effects  of  gravity. 

The  position  was  updated  by  transferring  the  updated  state  from  the  Geocentric- 
Equatorial  reference  frame  to  the  Perifocal  reference  frame.  The  true  anomaly  was 
tracked  to  ensure  the  updated  position  in  one  reference  frame  corresponded  with  the 
correct  location  in  the  other  reference  frame.  The  position  was  checked  to  ensure  that  the 
transfer  orbit  remained  circular.  Step  size  in  MATLAB  had  a  large  effect  on  the  orbit 
remaining  circular.  If  the  state  vector  was  not  checked  then  the  orbit  calculated 
throughout  a  single  orbit  with  no  thrust  did  not  remain  exactly  circular.  The  step  size  had 
to  be  less  than  a  few  seconds  for  iteration  error  to  not  build  up.  If  the  step  size  were 
larger  than  a  few  seconds  one  orbit  would  become  slightly  non-circular.  That  effect 
would  not  have  much  effect  but  in  a  low  thrust  transfer  over  90  days  the  orbit  would 
become  much  larger  than  it  was  supposed  to  be.  The  delta-v  would  have  a  gradually 
lessoning  effect  on  the  change  in  inclination.  To  ensure  the  thrust  profile  changed  the 
inclination  only  the  state  vector  was  updated  in  the  Geocentric-Equatorial  reference 
frame  to  determine  the  change  in  inclination  then  the  updated  position  was  checked 
against  the  position  in  the  new  Perifocal  reference  frame,  based  on  the  true  anomaly,  to 
ensure  that  the  transfer  orbit  was  not  growing  in  size. 

Mission  3  Results 

Several  analysis  methods  were  applied  to  compare  the  difference  in  trip  time  and 
required  propellant  mass  that  resulted  from  incrementally,  versus  instantaneously, 
updating  the  change  in  velocity  and  position  of  the  spacecraft.  The  second  part  of  the 
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analysis  compared  various  thrust  durations  for  the  electric  propulsion  system  with  the 
chemical  propulsion  system  performing  the  remainder  of  the  plane  change  when  the  time 
constraint  was  reached. 

The  change  in  velocity  required  by  the  chemical  system  resulted  in  a  delta-v  of 
1987.31  m/s,  from  Equation  14,  with  103.99  kg  of  propellant,  from  Equation  15.  The 
electric  propulsion  system  was  analyzed  with  several  different  thrust  schemes  and 
analysis  techniques.  The  first  method  was  to  treat  the  change  in  velocity  over  a  period  of 
time  as  though  it  had  an  instantaneous  effect  on  the  velocity  of  the  spacecraft.  That 
method  of  analysis  was  compared  with: 

1)  Updating  the  spacecraft’s  state  vector  every  minute  for  a  period  of  15  min 

beginning  at  the  crossover  point  and, 

2)  Centered  on  the  crossover  point  and  updated  every  few  seconds,  and 

3)  Thrust  continuously. 

These  three  methods  are  described  next. 

Using  these  analysis  techniques  the  spacecraft  was  able  to  reach  the  necessary  15 
degree  plane  change  within  the  time  constraint  for  some  of  the  thrust  profiles.  The  results 
for  all  these  methods  and  additional  trade  studies  are  described  in  Table  4  through  Table 
6  and  in  the  following  sections.  The  transfer  orbit  for  all  the  electric  propulsion  thrust 
profiles  had  the  same  general  flight  profile  shown  in  Figure  26. 
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Figure  26:  Mission  3  Generic  Flight  Profile 


Figure  26  depicts  an  electric  propulsion  transfer  orbit.  The  thrust  vector  between 
the  transfer  orbit  and  the  final  orbit  were  calculated  each  orbit  prior  to  applying  the 
increase  in  velocity  from  the  electric  propulsion  system.  Doing  this  caused  the  transfer 
orbit  to  change  inclination  slightly,  but  not  change  the  other  orbital  parameters.  The 
crossover  points  were  the  same  for  each  orbit  during  the  transfer  orbit. 

Single  Burn  Profile 

The  position  and  velocity  of  the  spacecraft  during  the  transfer  orbit  were  updated 
instantaneously,  incrementally,  and  continuously.  The  instantaneous  change  in  position 
was  the  least  realistic  of  all  the  orbit  transfers  modeled.  The  location  of  the  instantaneous 
thrust  implementation  may  be  seen  in  Figure  27. 


76 


Figure  27:  Mission  3  Electric  Propulsion  System  One  Impulsive  Burn 

The  red  square  represents  the  location  where  the  change  in  velocity  from  the  1 5 
min  thrust  was  applied;  this  method  reflects  that  the  electric  propulsion  system  has  much 
more  thrust  than  it  actually  has.  The  effect  of  the  change  in  velocity  on  the  position  and 
velocity  vector  were  applied  instantaneously  at  the  crossover  point.  When  viewed  from 
the  “-k”  direction  in  the  Geocentric-Equatorial  reference  frame  the  orbits  appear  circular; 
the  elliptical  look  resulted  from  the  axis  of  the  plot.  One  1 5  min  bum  achieved  about  half 
the  desired  plane  change.  This  analysis  method  was  compared  with  two  other  orbit 
updating  techniques  described  next. 
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Figure  28:  Mission  3  One  Burn  Beginning  at  Crossover  Point 

The  thrust  profile  depicted  in  Figure  28  involved  the  transfer  spacecraft  thrusting 
each  orbit  beginning  at  the  crossover  point  and  lasting  for  15  min.  The  spacecraft’s 
position  and  velocity  vector  were  updated  continuously  during  the  thrust  portion.  The 
results  for  this  thrust  profile  are  shown  in  Table  4.  A  slight  variation  on  this  thrust  profile 
is  shown  in  Figure  29. 
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Figure  29:  Mission  3  One  Burn  Centered  at  Crossover  Point 


Figure  29  shows  the  thrust  location  for  a  15  min  duration  segment  centered  over 
the  crossover  point.  This  thrust  profile  was  a  slight  modification  on  the  thrust  profile  seen 
in  Figure  28.  Centering  the  thrust  on  the  crossover  point  resulted  in  a  more  optimal  thrust 
location  with  less  propellant  and  a  larger  inclination  angle  achieved. 
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Table  4:  Mission  3  One  Burn  Analysis  Method 


Mission 

Electric  System 

Thrust  centered 

Thrust 

Req’s 

Instantaneous 

on  crossover  pt 

beginning  at 

burn 

crossover  pt 

Plane  Change 

15 

7.39 

5.70 

5.06 

(deg) 

Propellant 

<80 

27.65 

22.84 

23.04 

Mass  (kg) 

Trip  Time 

<90 

90.00 

90.00 

90.00 

(days) 

Delta  V  (m/s) 

N/A 

981.63 

798.8 

806.1 

As  seen  in  Table  4  the  largest  plane  change  resulted  from  the  instantaneous  burn 
but  this  method  was  also  the  least  accurate.  Updating  the  spacecraft  position  and  velocity 
vector  continuously  resulted  in  a  slower  transfer.  Having  the  thrust  location  centered  on 
the  crossover  point  resulted  in  a  more  optimal  transfer  than  having  the  thrust  begin  at  the 
crossover  point.  The  effective  change  in  inclination  resulting  from  thrusting  at  the 
crossover  point  produced  the  largest  change  in  inclination.  As  the  thrust  location  moved 
farther  away  from  the  crossover  point  the  change  in  inclination  resulting  from  thrusting 
was  not  as  effective.  None  of  the  thrust  profiles  were  able  to  achieve  the  15  degree  plane 
change  in  the  time  constraint. 


80 


Two  Burn  Profile 


The  spacecraft  was  able  to  achieve  the  plane  change  faster  through  centering  the 
thrust  segments  on  the  crossover  points.  The  thrust  durations  at  the  crossover  points  were 
varied.  If  the  electric  propulsion  system  was  unable  to  achieve  the  15  degree  plane 
change  the  chemical  propulsion  system  performed  the  remainder  of  the  mission.  Two 
analysis  techniques  were  modeled,  one  which  updated  the  position  and  velocity  vector 
continuously  and  one  that  assumed  smaller  “instantaneous”  changes  in  position  and 
velocity.  Figure  30  shows  where  the  thrust  was  located  for  the  “instantaneous”  impulse 
cases. 


Figure  30:  Mission  3  Electric  Propulsion  System  Two  Instantaneous  Burns 

The  transfer  orbit  in  Figure  30  with  two  15  min  burns  achieved  a  much  larger 
plane  change  than  the  single  bum  in  Figure  27.  The  total  change  in  the  position  and 
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velocity  vector  were  applied  at  the  thrust  location.  The  transfer  orbit,  as  seen  in  Figure 
30,  was  2  degrees  short  of  the  15  degree  plane  change.  The  results  for  this  thrust  profde 
are  shown  in  Table  5. 
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Figure  31:  Mission  3  Combined  System  Orbit  Profile 

The  combined  system  profile  initially  utilized  electric  thrust  with  two  1 5  min  then 
utilized  chemical  thrust  to  complete  the  maneuver.  This  thrust  profile  was  able  to  reach 
the  final  orbit  in  the  90  day  time  limit.  This  coupling  made  the  final  orbit  achievable. 

The  results  for  this  thrust  profile  are  shown  in  Table  5. 
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Table  5:  Mission  3  Two  Burn  Analysis  Method 


Mission 

Req’s 

Electric  System 

2  instantaneous 

burns 

Thrust 

beginning  at 

crossover  pt 

Thrust  centered 

on  crossover  pt 

Plane  Change 

(deg) 

15 

13.01 

10.93 

12.43 

Propellant  Mass 

(kg) 

<80 

46.08 

46.07 

45.97 

Trip  Time  (days) 

<90 

90.00 

90.00 

90.00 

Delta  V  (m/s) 

N/A 

1740.71 

1740.3 

1735.9 

As  seen  in  Table  5  the  instantaneous  burn  method  over  predicted  the  plane  change 
amount  and  under  predicted  the  required  propellant.  The  final  thrust  profiles  that  were 
modeled  are  represented  by  Figure  32. 


Figure  32:  Mission  3  Two  Burn  Location  Variation 
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The  squares  represent  the  area  where  the  thrust  occurred.  The  plot  on  the  left  of 
Figure  32  represents  the  case  where  the  thrust  began  at  the  crossover  point  and  the  plot  on 
the  right  represents  the  thrust  centered  over  the  crossover  point.  The  thrust  durations  for 
the  profile  shown  in  Figure  32  were  varied  from  8  minutes  at  each  crossover  point  to 
continuous  thrusting.  Thrust  beginning  at  the  crossover  point  was  represented  in  the  left 
hand  plot  in  Figure  32  resulted  in  more  propellant  required  to  complete  the  plane  change 
maneuver. 
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Figure  33:  Mission  3  Effect  of  Thrust  Location 


As  can  be  seen  from  the  Figure  33  thrust  beginning  at  the  crossover  point  resulted 
in  a  longer  transfer  time  and  larger  propellant  required  than  when  the  thrust  was  centered 
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at  the  crossover  point.  The  cause  of  this  was  because  the  farther  away  from  the  crossover 
point  the  less  effect  it  has  in  changing  the  inclination.  The  greatest  increase  in  inclination 
for  a  constant  thrust  resulted  in  the  area  immediately  around  the  crossover  point.  That 
resulted  in  the  thrust  beginning  at  the  crossover  point  requiring  more  time  and  propellant 
to  complete  the  maneuver. 

Thrust  duration  and  required  propellant  had  a  direct  correlation;  the  smaller  the 
thrust  duration  the  lower  the  propellant  required.  Increased  thrust  duration  resulted  in 
increased  trip  time.  This  relationship  may  be  seen  in  Figure  34. 
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Figure  34:  Mission  3  Combined  System  15  Deg  Plane  Change 


The  red  box  in  the  lower  corner  of  Figure  34  represents  the  portion  of  the 
different  thrust  duration  profiles  which  would  be  able  to  achieve  the  1 5  degree  plane 
change  in  the  time  and  propellant  constraint.  The  point  that  results  in  the  lowest 
propellant  usage  for  each  “thrust  duration”  line  represents  a  maneuver  completed  entirely 
with  electric  propulsion.  As  the  thrust  duration  decreased  the  mission  time  increased  and 
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the  propellant  mass  decreased.  The  required  propellant  decreased  the  most  for  the  longer 
duration  thrust  profile.  The  time  also  decreased  substantially  with  the  increase  in  thrust 
duration  per  orbit.  The  propellant  mass  decreased  slightly  but  after  a  time  of  about  110 
days  the  propellant  mass  savings  was  minimal.  The  fastest  transfer  time  for  a  15  degree 
plane  change  was  around  38  days  which  required  just  less  than  80  kg  of  propellant. 

Figure  35  displays  the  relationship  of  the  thrust  duration  for  a  15  degree  plane 
change  in  a  90  day  time  constraint.  The  combined  system  shown  in  Figure  35  represents 
a  system  where  the  electric  propulsion  system  utilized  the  majority  of  the  mission  time  to 
perform  the  plane  change  maneuver  and  the  chemical  system  performed  the  remainder  of 
the  plane  change. 
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Figure  35:  Mission  3  15  Deg  Plane  Change  Trade  Space 

The  minimum  propellant  required  for  a  15  degree  plane  change  in  the  90  day  time 
constraint  was  achieved  by  thrusting  centered  at  each  crossover  point  for  around  1 8  min. 
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Thrusting  for  18  min  resulted  in  54.66  kg  of  propellant.  The  propellant  mass  required 
decreased  as  the  thrust  duration  decreased  until  the  18  min  point.  This  was  caused  by  the 
plane  change  not  being  able  to  be  completed  entirely  by  the  electric  propulsion  system. 
The  assist  of  the  chemical  propulsion  system  caused  the  sharp  increase  in  propellant 
required.  Once  the  point  was  reached  of  the  electric  propulsion  system  being  unable  to 
perform  the  maneuver  entirely  on  its  own  the  shorter  electric  propulsion  thrust  duration 
resulted  in  the  electric  propulsion  system  performing  larger  portions  of  the  plane  change 
maneuver.  If  the  maximum  trip  time  were  increased  then  the  minimum  propellant  point 
in  Figure  35  would  continue  to  move  down  and  to  the  left.  Figure  36  displays  this  for  a 
variety  of  thrust  durations. 
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Figure  36:  Mission  3  Inclination  Change  and  Mission  Time  Relationship 

As  can  be  seen  from  Figure  36,  the  trip  time  greatly  increased  as  the  thrust 
duration  decreased.  The  longer  mission  time  corresponds  to  greater  usage  of  electric 
propulsion;  the  longest  mission  time  value  corresponds  to  an  entirely  electric  propulsion 
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maneuver.  The  variance  in  time  was  much  smaller  for  smaller  plane  change  angles.  The 
difference  in  time  ranges  from  around  22  days  for  a  2  degree  inclination  change  to  around 
150  days  for  a  15  degree  plane  change.  This  plot  corresponds  with  Figure  34. 
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Figure  37:  Mission  3  Effect  of  Thrust  Duration  on  Propellant  Mass 


As  seen  from  Figure  37  the  curves  representing  the  propellant  mass  with  respect 
to  thrust  duration  were  very  uniform.  The  spacing  between  the  lines  decreased  slightly  as 
the  plane  change  increased.  For  each  of  the  plane  change  amounts  the  propellant  mass 
savings  through  longer  thrust  durations  had  a  smaller  payoff.  The  slope  of  the  propellant 
verses  thrust  time  line  flattens  out  until  the  mass  savings  is  less  than  around  0. 1  kg. 

Each  plane  change  amount  resulted  in  similar  trends  for  the  change  in  propellant  with 
respect  to  the  thrust  duration.  The  15  degree  plane  change  is  represented  in  the  following 
figures. 
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Figure  38:  Mission  3  Two  Burn  15  deg  Plane  Change 

Figure  38  displays  the  values  for  a  purely  electric  propulsion  plane  change 
maneuver.  The  least  propellant  resulted  from  the  shortest  thrust  duration  as  seen  in  the 
uppermost  plot.  That  same  thrust  duration  would  take  190  days  to  complete  the  15 
degree  maneuver.  The  final  data  point  on  the  upper  two  plots  represents  the  thrusting 
continuously  case.  That  point  corresponded  to  the  highest  required  propellant  at  around 
75  kg. 
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Figure  39:  Mission  3  Two  Burn  2  deg  Plane  Change 

The  trends  seen  in  Figure  39  for  a  2  degree  plane  change  are  very  similar  to  those 
viewed  in  Figure  38  for  a  15  degree  plane  change.  Thrusting  continuously  would  achieve 
a  2  degree  plane  change  in  around  30  days  with  about  8  kg  of  propellant.  A  pure 
chemical  2  degree  plane  change  would  require  19  kg  of  propellant. 

Figure  40  represents  a  thrust  profile  where  continuous  thrusting  occurred. 
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Figure  40:  Mission  3  Continuous  Thrusting 


The  continuous  thrusting  case  shown  in  Figure  40  achieved  the  final  orbit  with  the 
least  amount  of  time  for  the  electric  propulsion  profiles.  All  the  values  in  Table  6  are  for 
the  transfer  where  the  position  and  velocity  were  continuously  updated  based  on  the 
thrust  duration.  The  values  listed  match  up  with  those  shown  in  Figure  34  -  Figure  38. 
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Table  6:  Mission  3  15  deg  Plane  Change  Values 


Mission 

Req’s 

Cont. 

Thrust 

40  Min 

Thrust 

Duration 

30  Min 

Thrust 

Duration 

20  Min 

Thrust 

Duration 

18  Min 

Thrust 

Duration 

15  Min 

Thrust 

Duration 

Propellant 

Mass  (kg) 

<80 

74.53 

66.98 

59.80 

55.28 

54.94 

66.08 

Trip  Time 

(days) 

<90 

46.16 

49.11 

58.47 

81.11 

89.32 

87.25 

Delta  V 

(m/s) 

N/A 

3146.6 

2739.4 

2376.9 

2159.3 

2128.3 

2073.3 

The  thrust  duration  that  resulted  in  the  least  required  propellant  was  an  1 8  min 
thrust  duration  centered  at  each  crossover  point.  The  propellant  required  decreased  as  the 
thrust  duration  decreased.  The  15  min  thrust  duration  required  more  propellant  than  the 
1 8  min  thrust  duration  because  the  electric  system  alone  was  unable  to  achieve  the  plane 
change  within  the  time  constraint.  The  utilization  of  the  chemical  propulsion  system  to 
achieve  the  plane  change  within  the  time  constraint  caused  the  required  propellant  to 
increase. 

2  5 

Using  the  idealized  impulsive  instantaneous  equations  "  resulted  in  the  following: 
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Table  7:  Textbook  vs  Detailed  Analysis  Values 


Textbook  Plane 

Best  Detailed 

Change 

Analysis 

Propellant  Mass  (kg) 

51.52 

54.94 

Trip  Time  (days) 

N/A 

89.32 

Delta  V  (m/s) 

1987.31 

2128.3 

The  textbook  equations  resulted  in  an  underestimate  of  the  required  delta-v  for  the 
electric  propulsion  system  which  is  reflected  in  the  decreased  required  propellant  mass. 
The  impulsive  equation  also  does  not  give  any  estimate  of  total  trip  time  which  is  very 
substantial  when  utilizing  an  electric  propulsion  system. 

Mission  Summary 

The  primary  conclusions  from  each  of  the  missions  are  re-iterated  below.  The  use 
of  electric  propulsion  in  all  the  missions  modeled  resulted  in  a  decrease  in  propellant 
mass.  The  utilization  of  an  electric  propulsion  system  had  varying  effects  for  the 
different  missions.  The  use  of  an  electric  propulsion  system  had  potentially  the  largest 
impact  on  a  plane  change  maneuver. 

Mission  1:  180  deg  Phase  Change  in  12  hr 

Utilizing  electric  propulsion  for  a  portion  of  the  mission  time  constraint  would 
result  in  mass  savings.  Longer  duration  time  constraints  results  in  additional  mass 
savings.  Varying  the  thrust  profile  decreased  the  necessary  propellant  mass  slightly,  but 
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the  largest  driver  for  propellant  mass  required  in  a  large  rephase  mission  was  the  time 
constraint.  A  large  time  constraint  would  also  result  in  a  reduction  in  mass  for  the 
chemical  propulsion  system.  The  chemical  propulsion  system  required  propellant  mass 
for  rephase  maneuvers  with  long  time  constraints  resulted  in  the  chemical  propulsion 
system  propellant  approaching  the  electric  propulsion  required  mass  for  that  same  time 
constraint.  Even  though  the  chemical  propulsion  system  required  propellant  approached 
the  electric  propulsion  required  propellant  electric  propulsion  always  required  around  1 
kg  less  propellant  to  complete  the  maneuver. 

Mission  2:  1000  km  Altitude  Increase  in  12  hours  and  return  in  48  hours 

Utilizing  a  multi-mode  propulsion  system  decreased  the  propellant  mass  required 
from  35  kg  to  30  kg  for  a  1000  km  altitude  change  maneuver  with  a  48  hr  time  constraint. 
The  entire  mission  with  an  altitude  raise  and  a  return  in  30  days  would  require  around  70 
kg  of  propellant  for  a  chemical  propulsion  system  to  perform  alone.  With  a  combined 
system  the  total  propellant  used  would  be  reduced  to  44.85  kg  which  is  a  decrease  of  36% 
in  propellant  use.  The  best  thrust  profile  was  to  initially  use  electric  propulsion  followed 
by  the  chemical  propulsion  system  performing  a  small  Hohmann  maneuver  to  increase 
the  altitude  with  the  final  altitude  increase  being  made  by  the  electric  propulsion  system. 
This  thrust  profile  resulted  in  30.24  kg  of  propellant  required  to  perform  the  maneuver 
within  the  12  hour  time  constraint.  The  first  electric  propulsion  segment  used  1.58  kg  of 
propellant,  the  chemical  propulsion  segment  used  27.07  kg  propellant,  and  the  second 
electric  propulsion  segment  used  1.58  kg  of  propellant.  The  chemical  -  electric  profile 
resulted  in  30.25  kg  of  required  propellant,  with  the  electric  propulsion  system  using  3.16 
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kg  propellant  and  the  chemical  propulsion  system  using  27.08  kg  propellant.  In  general, 
thrust  profiles  that  utilized  chemical  followed  by  electric  propulsion  resulted  in  the 
largest  propellant  savings. 

Mission  3:  15  deg  Plane  Change  in  90  days 

For  the  plane  change  mission  using  simplifying  assumptions  resulted  in  an  under 
prediction  of  the  trip  time  and  propellant  mass  required  for  the  maneuver.  The  location 
of  the  thrust  for  the  electric  propulsion  segment  had  a  large  effect  on  the  amount  of 
propellant  required.  The  larger  the  trip  time  constraint  the  lower  the  propellant  required 
to  perfonn  the  maneuver.  Using  the  same  equations  for  a  chemical  plane  change  as  an 
electric  propulsion  plane  change  under-predicts  the  delta-v  and  the  required  propellant 
and  does  not  give  a  way  to  estimate  the  trip  time.  The  fastest  the  MMP  system  would  be 
able  to  perform  the  mission  within  the  mass  constraint  was  in  37  days.  The  electric 
propulsion  system  required  half  the  propellant  of  the  chemical  propulsion  system  to 
perform  the  plane  change.  Plane  change  missions  are  very  costly,  but  using  optimal 
thrust  profiles  results  in  a  drastic  reduction  in  propellant  required. 

Conclusion 

The  full  potential  of  electric  propulsion  will  not  be  realized  until  it  begins  to  be 
modeled  in  conjunction  with  chemical  propulsion  systems.  When  electric  propulsion 
systems  are  used  with  chemical  systems  for  missions,  as  seen  in  missions  described 
above,  a  mass  savings  results.  Treating  them  separately  backs  the  electric  propulsion 
system  into  a  corner  through  limiting  it  only  to  station-keeping  missions  or  missions  with 
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very  long  time  constraints.  Also,  electric  propulsion  systems  can  be  utilized  for  plane 
change  missions. 

The  mass  savings  resulting  from  a  multi-mode  propulsion  system  was  not 
analyzed  herein  but  there  has  been  a  documented  mass  savings  from  having  an  integrated 
electric  and  chemical  propulsion  system.  The  utilization  of  an  integrated  system 
promotes  coupled  utilization.  Numerous  papers  have  been  written  regarding  electric 
propulsion  development  and  missions  in  which  electric  propulsion  are  generally  used 
have  been  documented.  Improvements  in  multi-mode  propulsion  systems  will  hopefully 
produce  a  new  grouping  of  papers  addressing  improved  mission  performance  through  the 
use  of  a  combined  system. 

Future  Work 

For  this  study  the  spacecraft  mass  was  broken  into  two  segments,  the  available 
propellant  (80  kg),  and  the  remainder  of  the  spacecraft  (100  kg).  The  overall  spacecraft 
could  be  modeled  in  more  detail.  The  comparison  of  the  chemical  propulsion  only 
system  would  have  slightly  different  results  if  the  propulsion  systems  were  sized.  The 
propellant  mass  could  be  kept  at  80  kg  but  the  difference  resulting  from  a  chemical, 
electric,  or  multi-mode  propulsion  system  would  be  reflected  in  the  payload  mass  of  the 
system. 

The  chemical  and  electric  propulsion  systems  were  treated  as  systems  that  had  a 
set  specific  impulse  and  thrust  level.  The  electric  propulsion  code  was  written  to  have 
available  power  as  input  but  varying  power  levels  were  not  analyzed.  An  assumption 
made  was  that  the  power  level  would  remain  constant  during  the  transfer,  but  it  would  not 
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be  that  difficult  to  incorporate  the  effect  of  thrust  into  the  electric  propulsion  calculations. 
The  MATLAB  scripts  were  written  to  include  a  power  variable  but  it  was  not  included  in 
calculations.  The  efficiencies  of  different  thrusters  could  also  be  included.  The  codes 
are  set  up  to  calculate  the  separate  missions.  Incorporating  additional  spacecraft 
information  would  be  relatively  simple. 

Drag  calculations  were  not  included  in  the  delta-v  budget,  but  for  lower  orbits 
drag  could  become  a  driving  factor.  Including  a  calculation  of  what  the  drag  would  be  on 
the  spacecraft  could  be  incorporated  into  the  necessary  delta-v  budget  to  complete 
maneuvers.  If  power  was  varying  the  electric  propulsion  system  may  not  have  a  constant 
thrust. 

A  separate  mission  that  was  proposed  but  was  not  analyzed  was  an  orbit  lowering 
and  drag  make-up  mission.  This  mission  could  utilize  the  orbit  raising  and  lower  code 
developed  for  Mission  1 ,  but  would  add  the  increased  difficulty  of  modeling  the  effect  of 
drag  on  a  spacecraft  at  lower  altitudes.  The  largest  problem  that  would  occur  with 
modeling  a  LEO  drag  makeup  mission  would  be  atmospheric  density  to  use.  This  value 
is  not  known  and  fluctuates  greatly  with  the  sun  solar  cycle.  Atmospheric  density  can 
fluctuate  orders  of  magnitude  causing  the  required  delta-v  to  compete  with  the  increased 
drag  to  change  by  orders  of  magnitude. 
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Appendix  A:  Mission  1  MATLAB  Code 

Five  separate  MATLAB  scripts  were  written  to  model  the  phase  change  mission. 
The  main  file  is  RunMl.m,  it  is  the  master  file  and  any  changes  in  the  vehicle 
information  will  be  utilized  in  the  other  codes.  The  primary  scripts  which  calculate  the 
transfers  are  chem.  rephase.m  and  eprephase.m.  The  rephase.m  file  utilizes 
chem.  rephase.m  and  ep  rephase.m  to  calculate  the  pure  chemical  and  electric  transfer 
orbits.  The  chem._rephase_ts.in  file  and  the  eprephasetime.m  file  calculates  the 
combined  system  values.  The  order  the  scripts  are  listed  in  this  file  are: 

1)  Runml.m 

2)  rephase.m 

3)  chemrephase.m 

4)  ep_rephase.m 

5)  chemrephasets.m 

6)  ep  rephase  time.m 


%This  script  runs  Mission  1:  12  hr  180  deg  rephase,  with  a  12  hr 
return . 

%This  program  calls  rephase.m,  which  calls  chem  rephase.m  and 
ep  manuever.m 

%Written  by  Tiffany  Rexius  2010-2011 

clc; 

clear; 

%****************vehicle  information************************* 


m  init  = 

180; 

%  [kg] 

P  avail  = 

1000; 

%  [W] 

Isp  ep  = 

600; 

%[s] 

Thrust  ep  = 

0.11; 

%[N] 

Isp  chem  = 

235; 

%[s] 

Thrust  chem  = 

18; 

%[N] 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


%**********************Qons-|-ants  ***************************** 


mu 

g0 

r  earth 

hr2sec 

sec2hr 


3 . 98  6e5 ; 
9.81; 

637  8; 

60*60; 

l/hr2sec; 


% [kmA3/sA2] 
% [m/sA2] 

%  [km] 

%  [ sec/hr] 

% [hr/ sec] 


100 


deg2rad  =  pi/180;  % [rad/deg] 

rad2deg  =  180/pi;  % [deg/rad] 

km2m  =  1000;  %[m/km] 

m2 km  =  1/1000;  %[km/m] 

9~'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


%**********************Mission 

rinit  =500+r  earth;  % 
t_const  =  12*hr2sec;  % 
rephase_ang  =180;  % 
imp  =20*60;  % 


^•k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  -k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k 

[km] 

[sec]  Time  constraint 

[deg]  Rephase  Angle 

[sec]  Length  of  burn  for  chemical 


[nu  diff,t  ch,dv  ch,mp  ch,t  ep,dv  ep,mp  ep,Th  ch]  = 

rephase (r  init,  rephase  ang,  Isp  ep.  Thrust  ep,Isp  chem, t  const, m  init,P  a 
vail , imp) ; 


%The  average  thrust  for  electric 

Th  ep  =  m  init*dv  ep(end)/(t  ep (end) *hr2sec) ;  %[N] 


fprintf ('***** *Results  for  Mission 
fprintf ( '  Rephase  Angle:  %6.2f\n 
fprintf ( ' ********* *Chemical  System 
fprintf ( '  Transfer  time  per  Man. 
fprintf ( '  Delta  V  (m/s) 

fprintf ( '  Propellant  Mass  (kg) 

fprintf ( '  Average  Thrust  (N) 

fprintf ( ' *************EP  System*** 
fprintf ( '  Transfer  time  per  Man. 
fprintf ( '  Delta  V  (m/s) 

fprintf ( '  Propellant  Mass  (kg) 

fprintf ( '  Average  Thrust  (N) 


1********\n\n') 

n ' , nu  dif f ) 

*********\n' ) 

(hr)  =  %6 . 2f \n ' , t_ch) 

=  %6 . 2f \n ' , dv_ch*2 ) 

=  %6.3f\n',mp  ch*2) 

=  %6 . 2f \n\n ' , Th  ch) 
*********\n' ) 

(hr)  =  %6 . 2f \n ' , t_ep) 

=  %6 . 2f \n ' , dv_ep (end) *2 ) 

=  %6.2f\n', (m  init  -  mp  ep)*2) 
=  %6 . 2f \n\n ' , Th_ep) 


%This  Runs  a  sweep  of  various  rephase  angles 

rephase  ts(r  init, Isp  ep, Thrust  ep, Isp  chem, t  const, m  init, imp) 
chem  rephase  ts; 


rephase. m  file 


function  [nu  diff,  t  ch,dv  ch,mp  ch,ti  ep,dv  ep,mp  ep,Th  ch]  = 
rephase (r  init,  rephase  ang,  Isp  ep.  Thrust  ep,  Isp  chem, time  sec,m  init,P 
avail , imp) 

%Written  by  Tiffany  Rexius  2010  -  2011 

%Calculates  transfer  time,  delta  v,  and  propellant  mass  for  an  EP 
system  as 

%well  as  for  a  chemical  system. 

%For  the  chemical  system  the  max.  time  constraint  is  enforced,  it  is 
not 

%enforced  for  the  ep  system. 

%8/17/10  T.  Rexius  Models  the  ep  and  chem  systems  seperatly,  plots 
orbit  trace 

%with  markings  of  where  each  spacecraft  would  be.  Works  for  any  input 
%rephase  angle. 
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format  long 


%**********************0onstan1-s ***************************** 


mu 

=  3 . 986e5; 

% [kmA3/ sA2 

g0 

=  9.81; 

% [m/sA2] 

r  earth 

=  6378; 

%  [km] 

hr2sec 

=  60*60; 

%  [ sec/hr] 

sec2hr 

=  l/hr2sec; 

% [hr/ sec] 

deg2rad 

=  pi / 180; 

% [rad/ deg] 

rad2deg 

=  180/pi; 

% [deg/rad] 

km2m 

=  1000; 

%  [m/km] 

m2  km 

=  1/1000; 

% [km/m] 

9~^i<'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


%***************** ****convert 

r  ang  =  rephase  ang*deg2rad; 

t  max  =  time  sec; 

t  tot  =  t  max; 


Units************************** 


% [rad] 
% [ sec] 
% [sec] 


a  init  =  r  init;  %[ km] Circular  orbit 

P_init  =  2*pi*sqrt (a_initA3/mu) ;  %[sec] 

omega_init  =  (2*pi) /P^init;  % [rad/sec] 

9~'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

^*  ************  *  *  * chemical  Propulsion  Only******************** 
%Calculates  a  transfer  into  a  "hohmann"  type  orbit  for  a  certain  number 
of 

%orbits  until  it  reenters  its  original  orbit  at  a  phase  change  angle 
equal 

%to  the  input  angle  and  in  just  under  the  necessary  time  allotment. 


nu  init  =  0;  %Initial  position  in  orbit 

[posl , pos2 , vel  chem, t  chem,mp  chem, dv  chem, nu  diff,Th  ch]  = 
chem  rephase (m  init,r  init,  Isp  chem, r  ang,t  max,  nu  init, imp); 

r_chem_x  =  posl(l,:);  %[km] 
r_chem_y  =  posl (2,:);  %[km] 

%****************Eqectr;j_c  propulsion  Only******************** 

%0nly  Electric  propulsion  transfer.  This  disregards  the  trip  time 
%constraint  and  calculates  the  amount  of  time  it  would  take  for  the 
%rephase  angle  if  it  was  thrusting  constantly. 

t  max  a  =  t  max*6.0;  %  [sec]  Removes  time  constraint  for  this  case 

rephase  diff  =  0;  %[rad]  Initial  rephase  difference 

check  =  1;  %1  =  decrease  radius,  2  =  increase  radius 


[rephase_tot, nu, pos, vel, t_ep, mp, r_new, dv_tot, Th_ep]  = 

ep  rephase (r  init,m  init,t  max  a,  r  ang (end) , rephase  diff , Isp  ep, Thrust 
ep, check) ; 

rephase_deg  =  rephase_tot (end) *rad2deg; 
r_eP„x  =  pos(l,:);  %[km] 

r_ep_y  =  pos (2,:);  %[km] 
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%**********************get  up  Plots************************** 

%Plot  outline  of  earth  on  plot  and  outline  of  initial  orbit 
nu_earth  =  0;  %[rad] 

nu^step  =  l*deg2rad;  %[rad] 
kk  =  1  ; 


while  nu  earth  < 
r  earth  x ( kk) 
r  earth  y(kk) 
rix ( kk) 
riy ( kk) 
nu  earth 
kk~ 


2  *pi 

=  r_earth*cos (nu^earth)  ; 
=  r  earth*sin(nu  earth); 
=  r_init*cos (nu^earth) ; 

=  r  init*sin(nu  earth); 

=  nu  earth  +  nu  step; 

=  kk+1 ; 


end 


rixe  =  r  init*cos (omega  init*t  ep(end)); 
riye  =  r  init*sin (omega  init*t  ep(end)); 

figure ( 1 ) 
subplot (2,1,1) 

plot ( r_ep_x, r_ep_y,  ' — g '  ,  rix, riy,  ' -k ' , r_earth_x, r_earth_y,  ' - 
b ' , r_ep_x (end) , r_ep_y (end) , ' x ' , rixe, riye, 'o') 
title (' Electric  Propulsion  Transfer  Orbit') 

legend (' Transfer  Orbit  [ km] ',' Initial  Orbit  [km]', 'Earth  [km]') 
subplot (2, 1,2) 

plot(r  chem  x,r  chem  y, ' --g ' , rix, riy, '-k',r  earth  x,r  earth  y, '- 

b ' , r_chem_x (end) , r_chem_y (end) ,  ' x '  ,  pos2 ( 1 ,  : ) , pos2 (2 ,  :),  'o') 

title (' Chemical  Propulsion  Transfer  Orbit') 

legend (' Transfer  Orbit  [ km] ',' Initial  Orbit  [km]', 'Earth 

[ km] ',' Transfer  Orbit  Position',  'Initial  Orbit  Position') 

figure  (2 ) 

plot (t_ep*sec2hr, rephase_tot*rad2deg) 

title (' Rephase  Time  vs.  Rephase  Degree  for  EP  system') 

xlabel ( ' Time  (hr) ' ) 

ylabel (' Rephase  Amount  (deg) ') 


t  1 

ch 

=  t  chem (end) /3600 ; 

dv 

ch 

=  dv  chem (end) *km2m; 

mp 

ch 

=  mp  chem (end); 

ti 

_eP 

=  t  ep (end) / 3600; 

dv 

_ep 

=  dv  tot (end) ; 

mp 

_eP 

=  mp; 

Chem.  rephase. m  file 

function  [posl , pos2 , vel , time, mp, dv, nu  diff,Th  ch]  = 
chem  rephase (m  init,  r  init,Isp,r  ang,t  tot,nu  init,imp) 

%Written  by  Tiffany  Rexius  2010  -  2011 

format  long 
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%**********************0ons-t-ants  ***************************** 
mu 
gO 

r  earth 
hr2sec 
sec2hr 


km2m 
m2  km 


r  mm 
a  init 
P_init 
v  init 
w  init 


3 . 986e5; 

% [kmA3/sA2] 

9  .  8  1  ; 

% [m/sA2 ] 

637  8; 

%  [km] 

60*60; 

%  [ sec/hr] 

l/hr2sec; 

% [hr/ sec] 

pi / 180; 

% [rad/deg] 

180 /pi; 

% [deg/rad] 

1000; 

%  [m/km] 

1/1000; 

% [ km/m] 

'k'k'k'k'k'k'k'k'k'k 

-k'k'k'k'k'k'k'k'k'k'k'k'k-k'k'k-k-k'k'k'k'k'k 

r  earth  + 

300; 

%  [km] 

r  init; 

%[km]  Ci 

2*pi*sqrt ( 

a  initA3/mu) ; 

% [sec] 

sqrt (mu/ r 

init) ; 

% [km/s] 

(2*pi) /P  init; 

% [rad/ s] 

a_trans  =  (mu*  (w_init  +  r_ang/t_tot)  A  (-2)  )  A  (1/3)  ;  %[km] 
r  trans  =  a  trans*2  -  r  init;  %[km] 


%Finds  Optimal  Transfer  Orbit  based  on  time  constraint 
flag  =  1; 

k  =  round (t_tot/hr2sec) ; 
while  flag  ==  1 
for  i  =  1 : k 

p  trans (i)  =  P  init* (r  ang/(2*pi*i)  +  1); 

(2*pi) / p_trans (i) ; 

(mu* (p  trans (i) / (2*pi) ) A2) 


w  trans ( i )  = 
A  trans  ( i )  = 


(1/3)  ; 


r  trans (i)  =  A  trans (i) *2  -  r  init; 
v  apo ( i ) 


=  sqrt (mu* (2/ r_init-l/A_trans (i) ) ) ; 
dv_inst(i)  =  abs (v_init  -  v_apo(i)); 
dv  tot(i)  =  2*dv  inst (i) *km2m; 

m  prop(i)  =  m  init  -  m  init*exp(-dv  tot (i) /Isp/gO) ; 
nu  diff  =  abs (w  trans (i)*p  trans (i)*i  - 
w  init*p  trans (i) *i) *rad2deg; 

nu  sat  =  w  init*p  trans (i)*i; 

sat  initx  =  r  init*cos (w  init*p  trans (i)*i); 

sat  inity  =  r  init*sin(w  init*p  trans (i)*i); 

end 

if  p  trans (i)*i  >  t  tot 


k  =  k 


1; 


else 


p  trans  = 

0*ones 

\ — i 

w  trans  = 

0*ones 

(l,k)  ; 

A  trans  = 

0*ones 

(l,k)  ; 

r  trans  = 

0*ones 

(l,k)  ; 

v  apo  = 

0*ones 

(l,k)  ; 

dv  inst  = 

0*ones 

(l,k)  ; 

dv  tot  = 

0*ones 

(l,k)  ; 

m  prop  = 

0*ones 

d,k)  ; 

flag  = 

2; 

dv  chem  = 

dv  tot 

(i) *m2km; 
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end 


end 

P  trans 

=  p  trans (end) ; 

%  [sec 

a  trans 

=  A  trans (end) ; 

%  [km] 

time 

=  i*P  trans; 

%  [sec 

Energy  tr 

=  -mu/ (2*a  trans) ; 

%  [kmA 

dv 

=  dv  chem; 

%  [km/ 

ecc 

=  1  -  r  init/a  trans; 

per 

=  a  trans* ( l-eccA2 ) ; 

%  [km] 

kkmax 

=  2000; 

t  step 

=  t ime/ kkmax; 

%  [sec 

t  count 

=  0; 

%  [sec 

for  kk  =  1 : 

:  kkmax 

r_trans  =  per/(l  +  ecc*cos (w_trans (end) *t_count  +  nu_init) ) 

v  trans(kk)  =  sqrt (2* (Energy  tr+mu/r  trans (end) )) ; 
r  x(kk)  =  r  trans (end) *cos (w  trans (end) *t_count  +  nu  init); 

r  y(kk)  =  r  trans (end) *sin (w  trans (end) *t_count  +  nu  init); 

t_count  =  t_count  +  t_step; 


end 


mp 

posl 

pos2 

vel 

burn  time 
burns 
Th  ch 


=  m  init  -  m  init*exp (-dv*km2m/Isp/gO) ; 
=  [r_x;  r_y] ; 

=  [sat_initx;  sat_inity] ; 

=  v^trans; 

=  2* imp; 


[kg] 

%  [  km] 

%  [km] 

% [ km/ s ] 

%[sec]  for  Hohmann  2 


=  m  init*dv (end) *km2m/ (burn  time);  %[N] 


cp._rcphasc.in  file 


function  [rephase_tot,  nu, 
ep  rephase (r  init,  m  init, 
Thrust_ep, check) 


pos,  vel,  time,  mf,  r  new,  dv  tot,  Th  ep] 
t  max, r  ang,  rephase  diff,  Isp  ep. 


%Written  by  Tiffany  Rexius  2010  -  2011 

%Thrusts  up  until  time  constraint  (t  max)  is  reached. 


^*  ******************  *  *  *Cons tant s  *  **************************** 


mu 

=  3 . 98  6e5 ; 

% [kmA3/sA2] 

g0 

=  9.81; 

% [m/sA2] 

r  earth 

=  6378; 

%  [km] 

hr2sec 

=  60*60; 

%  [ sec/hr] 

sec2hr 

=  l/hr2sec; 

% [hr/ sec] 

deg2rad 

=  pi/180; 

% [rad/deg] 

rad2deg 

=  180/pi; 

% [deg/rad] 

km2m 

=  1000; 

% [m/km] 

m2  km 

=  1/1000; 

% [km/m] 

9~'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


Isp 
m_dot 
a  init 
P_init 
omega  init 


Isp_ep; 

Thrust_ep/ (Isp*g0) ; 
r  init; 

2*pi*sqrt (a_init A3/mu) ; 
2*pi/P  init; 


% [ sec] 

% [kg/ s] 

% [ km]  if 
% [ sec] 

% [rad/ s] 


circular 


orbit 
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Vel  init 

:  s 

qrt (mu/r  init) ; 

Q, 

O 

[km/s] 

r  min 

= 

290  +  r  earth; 

o, 

o 

[km] 

t  step 

- 

o 

o, 

o 

[  sec] 

t  init 

= 

0; 

o, 

o 

[  sec] 

delta  v  tot 

= 

0; 

0, 

o 

[km/s] 

prop  mass 

= 

0; 

g, 

o 

[kg] 

nu 

= 

0; 

g, 

o 

[rad] 

j  j 

- 

1; 

o, 

o 

[] 

Count 

Vel  new 

= 

Vel  init; 

o, 

o 

[km/s] 

r  new 

= 

r  init; 

o, 

o 

[km] 

nu  old 

= 

o7 

g, 

o 

[rad] 

tol 

= 

0.001; 

Q, 

o 

[] 

Tolerance 

nu  init 

— 

omega  init*t  step; 

o, 

o 

[rad] 

Calc  where  sc  would  be 

while  abs (r 

ang  -  rephase  diff)  >  tol 

t  init 

=  t  init  +  t  step; 

g, 

o 

[s] 

Begin  at  first  time 

step 

nu 

=  nu  +  nu  init; 

g, 

o 

[rad] 

Update  position  in 

initial  orbit 

mass 

=  m  init  -  m  dot*t  step; 

0, 

o 

[kg] 

Calculate  update  mass 

after  thrusting  for  a  time  step 

delta  v 

=  Isp*g0*log(m  init/mass) ; 

g, 

o 

[m/s] 

Calc  delta  v  required 

to  thrust  1 

time  step 

m  init 

=  mass; 

Q, 

o 

[kg] 

Resets  initial  mass; 

%Checks  if  orbit  is  increasing  or  decreasing  and  if  it  needs  to 
return 

%to  original  orbit, 
if  check  ==  1  &&  t  init  <  t  max/2 
if  rephase  diff  >  (r  ang)/2 

Vel  new  =  Vel  new  -  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
else 


Vel  new  =  Vel  new  +  delta  v*m2km; 
velocity  after  delta  v 
end 

elseif  check  ==  1  &&  t  init  >  t  max/2 
if  rephase  diff  >  (r  ang  )/2 

Vel  new  =  Vel  new  -  delta  v*m2km; 
velocity  after  delta  v 
else 

Vel  new  =  Vel  new  -  delta  v*m2km; 
velocity  after  delta  v 
end 

elseif  check  ==  2  &&  t  init  <  t  max/2 
if  rephase  diff  >  (r  ang  )/2 

Vel  new  =  Vel  new  +  delta  v*m2km; 
velocity  after  delta  v 
else 

Vel  new  =  Vel  new  -  delta  v*m2km; 
velocity  after  delta  v 
end 

elseif  check  ==  2  &&  t  init  >  t  max/2 
if  rephase  diff  >  (r  ang)/2 

Vel  new  =  Vel  new  +  delta  v*m2km; 
velocity  after  delta  v 


%[km/s]  Calc  new 


%[km/s]  Calc  new 

%[km/s]  Calc  new 


%[km/s]  Calc  new 

%[km/s]  Calc  new 


%[km/s]  Calc  new 
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else 


Vel  new  =  Vel  new  +  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
end 

end 


r  new  =  mu/Vel_newA2 ; 

radius  (assume  circular)  from  new  velocity 
if  r  new  <  r  min 

Vel  new  =  Vel  new  -  2*delta  v*m2km; 
after  delta  v 

r  new  =  mu/Vel  newA2; 
radius  (assume  circular)  from  new  velocity 
end 


%[km]  Calc  new  orbital 

%[km/s]  Calc  new  velocity 
%[km]  Calc  new  orbital 


P  new 


=  2*pi*sqrt (r_newA3/mu) ;  %[s] 


orbit 

omega  new  =  2*pi/P  new;  %[rad/s] 

new  orbit 

nu  new  =  nu  old  +  omega  new*t  step;  %[rad] 

the  new  orbit.  This  will  differ  because  it  will  be  in  a 
different  orbit  than  the  initial  orbit. 

nu  old  =  nu  new; 

rephase_diff  =  abs (nunew  -  nu) ;  %[rad]  Calc 

phase  angle 


Period  of  new 

Orbital  rate  of 

True  anomaly  of 
slightly 

difference  in 


r_new_x ( j  j ) 
transfer  orbit 
r_new_y ( j  j ) 
transfer  orbit 

rephase_tot ( j  j ) 


r  new*cos (nu  new) ; 

%  [km] 

Calc 

x-position  in 

r  new*sin (nu  new); 

%  [km] 

Calc 

y-position  in 

rephase  diff; 


if  t  init  ==  t  step 

delta_v_tot ( j j )  =  delta_v_tot  +  delta_v;  %[km/s]  Keeps 

track  of  the  total  delta  v 
else 


delta_v_tot ( j j )  =  delta_v_tot ( j j 
track  of  the  total  delta  v 


end 

%Save  variables 

r_new_tr ( j  j ,  : )  = 
dv_tot  = 

pos  = 

vel(jj) 
time ( j  j ) 

time 


r  new; 

delta_v_tot ( j  j ) ; 

[r  new  x;  r  new  y] ; 
Vel  new; 
t  init; 


-1) 


delta_v;  %[km/s]  Keeps 


%  [km] 

% [km/s] 

%  [km] 

% [ km/ s ] 

% [sec]  Keeps  track  of 


j  j 


=  jj+i; 


prop_mass ( j j )  =  prop_mass(jj  -1) 
of  total  propellant 

mp_ep  =  prop_mass ( j j ) ; 

mf  =  mass; 

%Ensure  Constraints  are  met 
if  abs(r  new  -  r  init)  <  0.1  && 

break 


%  [  ]  Count 
+  m_dot*t_step;  %[kg] 

%  [kg] 

%  [kg] 

t_init  >=  50*t_step 


Keeps  track 


end 
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if  t  init  >=  t  max 
break 

end 

end 

Th  ep  =  m  init*dv  tot/time (end) ; 


chem._rephase_ts.ni  file 

%Chemical  Rephase  Sweep,  this  program  runs  chem  rephase  for  a  variety 
of  time  constraints. 


%Written  by  Tiffany  Rexius  2010  -  2011 


%**********************0ons1-ant5 ***************************** 


mu 

gO 

r  earth 

hr2sec 

sec2hr 

deg2rad 

rad2deg 

km2m 

m2  km 

o 


3 . 986e5; 

9  .  8  1  ; 

637  8; 
60*60; 
l/hr2sec; 
pi / 180; 
180 /pi; 
1000; 
1/1000; 


* 


Q, 

O 

O, 

O 

O, 

O 

Q, 

O 

O, 

O 

O, 

O 

g_ 

o 

g. 

o 

g. 

o 

★ 


[kmA3/sA2] 

[m/sA2 ] 

[km] 

[  sec/hr] 

[hr/ sec] 

[rad/deg] 

[deg/rad] 

[m/km] 

[km/m] 

•k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


m  init 
r  init 
R  init 
Isp 

Isp_ep 
Thrust  ep 
r_ang 
nu  init 
imp 
count 


180; 

500  +  r_earth; 
r  init; 

2  35; 

600; 

0.11; 

180*deg2rad; 

0; 

20*60; 

1; 


min  time  =  4*hr2sec; 
max  time  =  65*hr2sec; 
step  size  =  l*hr2sec; 


for  t  tot  =  min  time: step  size:max  time 

[posl , pos2 , vel , time, mp, dv, nu  diff,Th  ch]  = 
chem  rephase (m  init,r  init,  Isp,  r  ang,t  tot,nu  init, imp); 


time_left (count) 
trans_trackx (count) 
trans_tracky (count) 
init  sat  trackx (count) 
init  sat  trackx (count) 
time_tot (count) 
m_prop (count) 
dv  tot (count) 


t_tot  -  time (end) ; 
posl ( 1 , end) ; 
posl (2 , end) ; 
pos2 ( 1 , end) ; 
pos2 (2 , end) ; 
time (end) ; 
mp (end) ; 
dv (end) ; 
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rephaseang (count) 
ave_th (count) 
t_track (count) 
count 

end 


=  nu_diff (end)  ; 
=  Th_ch; 

=  t_tot; 

=  count  +  1; 


%This  section  runs  the  same  sweep  as  was  done  previously,  but  has  the 
%electric  system  thrust  for  the  "time  left"  duration,  such  that  the 
time 

%constraint  is  very  nearly  met. 

time_dec  =  40; 
kk  =  1  ; 

j  j  =  i  ; 


for  t  tot  =  min  time: step  sizermax  time 
t  max  =  time  left(kk)  -  60; 

rephase  diff  =  0;  %Initial  rephase  amount 

check  =  2;  %1  =  decrease  alt,  2  =  increase  alt 

[rephase_tot, nu, pos, vel, t_ep, mf , r_new, dv_tot, Th_ep]  = 
ep  rephase  time(r  init,m  init,t  max,r  ang, rephase  diff , Isp  ep, Thrust  ep 
, check) ; 

nu (end) ; 

m  init  -  mf (end) ; 
r_ang  -  rephase_tot (end) ; 
t_tot  -  t_ep(end); 
t  tot; 


nu  init 
mp_ep 
r  ang2 
t  chem 
t  track(kk)  = 


[posl , pos 2 , vel , t_ch, mp, dv, nu_dif f , Th_ch]  = 
chem  rephase (mf (end)  ,  r  new, Isp, r  ang2  ,  t  chem, nu  init, imp); 


time  lef t2 ( kk) 
t  trans  track (kk) 
trans  trackx2(kk) 
trans  tracky2(kk) 
init  sat  trackx2 (kk) 
init  sat  trackx2 (kk) 
time  tot2 ( kk) 
m  prop2 ( kk) 
dv_tot2 (kk) 
ave  th2 ( kk) 
rephaseang2 (kk) 
ave  th2 


t_tot  -  t_ep(end)  -  t_ch(end); 

t  tot  -  time  left2 (kk) ; 

posl ( 1 , end) ; 

posl (2 , end) ; 

pos2 ( 1 , end) ; 

pos 2 (2 , end) ; 

t_tot  -  time_left2 (end) ; 
mp(end)  +  mp  ep; 
dv(end)*km2m  +  dv  tot (end) ; 
Th_ch; 

nu_diff (end) ; 

Th  ch; 


while  t  tot (end)  >  min  time 
if  time  left(kk)  <  3*60 
t  chem 

[posl , pos 2 , vel , t_ch, 
chem  rephase (m  init,  r  init, Isp, 
time  lef t2 ( kk) 
trans  trackx2(kk) 
trans  tracky2(kk) 
init  sat  trackx2 (kk) 
init  sat  trackx2 (kk) 
time  tot2 ( kk) 


&  m_prop2 ( j  j )  >  m_prop ( j  j ) 

=  t_tot (end) ; 

Lp,dv,nu  diff,Th  ch]  = 

'  ang,t  chem, nu  init, imp); 

=  t_tot  -  t_ep(end)  -  t_ch(end); 
=  posl (1, end) ; 

=  posl (2 , end) ; 

=  pos2 ( 1 , end) ; 

=  pos 2 (2 , end) ; 

=  t  tot  -  time  left2 (end) ; 
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m  prop2 ( kk) 
dv_tot2 (kk) 
ave  th2 ( kk) 
rephaseang2 (kk) 
ave  th2 

else 


=  mp (end) ; 

=  dv (end) ; 

=  Th_ch; 

=  nu_diff (end) ; 
=  Th  ch; 


t  max  =  time  left(kk)  -  time  dec; 

if  t  max  <  0 
t  max  =  0 ; 


end 
r  init 
time_dec 
rephase  diff 
check 

[rephase_tot, 
=  ep  rephase  time(r  init, 
Thrust_ep, check) ; 

mp_ep 
dv_ep 
m  init 
nu  init 
r  ang2 
r_init2 
if  t  max  ==  0 
t  chem  = 


=  R  init; 

=  time_dec  +  60; 

=  0;  %Initial  rephase  amount 
=  2;  %1  =  decrease  alt,  2  =  increase  alt 

nu,  pos,  vel,  t_ep,  mf,  r_new,  dv_tot, Th_ep] 
m  init,  t  max,r  ang,  rephase  diff,  Isp  ep, 

=  m  init  -  mf (end) ; 

=  dv_tot (end) ; 

=  mf (end) ; 

=  nu (end) ; 

=  r_ang  -  rephase_tot (end) ; 

=  sqrt (pos ( 1 , end) A2  +  pos (2 , end) A2 ) ; 

t  tot; 


else 

t  chem  =  t 
end 

[posl , pos 2 , vel ,  t_ 
chem  rephase (m  init,  r  init2, 
time_lef t2 ( j  j ) 
t_trans_track ( j  j ) 
time_taken ( j  j ) 
trans_trackx2 ( j  j ) 
trans_tracky2 ( j  j ) 
init  sat  trackx2 ( 
init  sat  trackx2 ( 
time_tot2 ( j  j ) 
m_prop2 ( j  j ) 
dv_tot2 ( j  j ) 
ave_th2 ( j  j ) 
rephaseang2 ( j  j ) 
if  m_prop2  ( j  j )  < 
time_dec  =  60 

end 


tot  -  t  ep (end) ; 


ch,mp,dv,nu  diff,Th  ch]  = 

Isp,r  ang,t  chem, nu  init, imp); 

=  t_tot  -  t_ep(end)  -  t_ch(end) 
=  t_tot  -  time_lef t2 ( j j ) ; 

=  t_ch  +  t_ep(end); 

=  posl ( 1 , end) ; 

=  posl (2 , end) ; 
j j )  =  pos2 ( 1 , end) ; 
j  j )  =  pos2 (2 , end) ; 

=  t_tot  -  time_left2 (end) ; 

=  mp(end)  +  mp  ep; 

=  dv(end)*km2m  +  dv  tot (end); 

=  Th_ch; 

=  nu^diff (end) ; 
m_prop ( j  j ) 


end 


end 

if  time  left2 (kk)  >  10*60  &&  t  tot  >  max  time/2 
t_max  =  t_tot  -  t_ch  -  6*60; 

rephase  diff  =  0;  %Initial  rephase  amount 
check  =  2;  %1  =  decrease  alt,  2  =  increase  alt 

[rephase_tot , nu, pos , vel , t_ep, mf , r_new, dv_tot , Th_ep]  = 
ep  rephase  time(r  init,m  init,t  max,r  ang, rephase  diff , Isp  ep, Thrust  ep 
, check) ; 

nu  init  =  nu(end); 

mp  ep  =  m  init  -  mf (end) ; 
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r  ang2  =  r  ang  -  rephase  tot (end); 

t_chem  =  t_tot  -  t_ep(end); 

t_track(kk)  =  t_tot; 

[posl , pos2 , vel , t_ch, mp, dv, nu_dif f , Th_ch]  = 
chem  rephase (mf (end) , r  new, Isp, r  ang2,t  chem, nu  init, imp); 

time  lef t2 ( kk) 
t  trans  track (kk) 
trans  trackx2(kk) 
trans  tracky2(kk) 
init  sat  trackx2 (kk) 
init  sat  trackx2 (kk) 
time  tot2 ( kk) 
m  prop2 ( kk) 
dv__tot2  (kk) 
ave  th2 ( kk) 
rephaseang2 (kk) 
ave  th2 

end 

kk  =  kk  +  1; 

jj  =  jj  +  i; 

end 

figure ( 7 ) 

plot (time_left2/3600, t_track/3600, time_left/3600,  t_track/3600) 
title ('Time  Remaining  from  Time  Constraint  for  Combined  and  Chemical 
Only' ) 

xlabel ( ' Time  Left  (hr) ' ) 

ylabel (' Total  Time  Constraint  (hr)  ') 

legend (' Electric  -  Chemical ',' Chemical ' ) 

figure ( 8 ) 

title (' Combined  System  Savings') 
subplot (3,1,1) 

plot(t  track. *sec2hr,m  prop2, 'b',t  track. *sec2hr,m  prop, 'r') 
axis  ([4  50  0  80]) 

legend (' Electric  -  Chemical ',' Chemical ' ) 

xlabel ( ' Time  (hr) ' ) 

ylabel (' Propellant  Mass  (kg)') 

subplot (3,1,2) 

plot(t  track . *sec2hr, (m  prop  -  m  prop2)) 
axis  ([4  50  0  0.3]) 
xlabel ( ' Time  (hr) ' ) 

ylabel (' Propellant  Mass  Savings  (kg) ') 
subplot (3,1,3) 

plot (t_track . *sec2hr, dv_tot2 ) 

axis ( [4  50  0  1500] ) 

xlabel ( ' Time  (hr) ' ) 

ylabel (' Total  Delta  V  (m/s)') 

fprintf ( ' Ref erence  Mission  1,  180  deg  rephase  in  12  hr,  return  in  12 
hr\n ' ) 

t  12hr  =  find(t  track  ==  12*3600); 


=  t_tot  -  t_ep(end)  -  t_ch(end); 
=  t  tot  -  time  left2(kk); 

=  posl ( 1 , end) ; 

=  posl (2 , end) ; 

=  pos2 ( 1 , end) ; 

=  pos2 (2 , end) ; 

=  t_tot  -  time_left2 (end) ; 

=  mp(end)  +  mp  ep; 

=  dv(end)*km2m  +  dv  tot (end) ; 

=  Th_ch; 

=  nu_diff (end) ; 

=  Th  ch; 
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fprintf (' Propellant  Mass  for  Combined  system  = 
%6.2f\n',m  prop2 (t  12hr)*2) 

fprintf (' Delta  V  for  Combined  system  = 

%6 . 2f \n ' , dv_tot2 (t_12hr) *2) 

fprintf (' Transfer  Time  for  Combined  system  = 
%6.2f\n',t  trans  track(t  12hr) *sec2hr) 


cp  rcphasc  timc.m  file 


function  [rephase  tot,  nu,  pos,  vel,  time,  mf,  r  new,  dv  tot,  Th  ep] 
ep  rephase  time(r  init,  m  init,  t  max,  r  ang,  rephase  diff,  Isp  ep, 
Thrust_ep, check) 

%EP  will  thrust  up  until  time  constraint  (t  max)  is  reached. 

%No  figures  from  this  file. 


%Written  by  Tiffany  Rexius  2010-2011 

%**********************0ons1-ant5 ***************************** 


mu 

gO 

r  earth 

hr2sec 

sec2hr 

deg2rad 

rad2deg 

km2m 

m2  km 


3 . 986e5; 

9  .  8  1  ; 

637  8; 
60*60; 
l/hr2sec; 
pi / 180; 
180/pi; 
1000; 
1/1000; 


[kmA3/sA2] 
[m/ sA2 ] 
[km] 

[  sec/hr] 
[hr/ sec] 
[rad/ deg] 
[deg/rad] 
[m/km] 
[km/m] 


S'&icif'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


Isp 
m_dot 
a  init 
P_init 
omega  init 
Vel  init 


Isp_ep; 

Thrust_ep/ (Isp*g0) ; 
r  init; 

2*pi*sqrt (a_init A3/mu) ; 
2*pi/P  init; 
sqrt (mu/r_init) ; 


% [kg/ s] 

%[km]  if  circular  orbit 
%[s] 

% [rad/ s] 

% [km/s] 


r  min 

= 

290  +  r  earth; 

t  step 

- 

O 

kD 

t  init 

= 

0; 

delta  v  tot  = 

0; 

prop  mass 

- 

0; 

nu 

= 

0; 

j  j 

= 

1;  %Count 

Vel  new 

= 

Vel  init; 

r  new 

= 

r  init; 

nu  old 

= 

o7 

nu  init 

= 

omega  init*t  step;  %[rad] 

satellite 

would  be  in  initial  orbit 

Calc,  true  anomaly  where 


while  t  init  <  t  max 

t  init  =  t  init  +  t  step;  %[s]  Begin  at  first  time 

step 
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nu  =  nu  +  nu  init; 

initial  orbit 

mass  =  m  init  -  m  dot*t  step; 

after  thrusting  for  a  time  step 

delta  v  =  Isp*gO*log(m  init/mass) ; 

to  thrust  1  time  step 

m  init  =  mass; 


%[rad]  Update  position  in 
%[kg]  Calculate  update  mass 
%[m/s]  Calc  delta  v  required 
% [ kg]  Resets  initial  mass; 


%If  over  half  of  the  rephase  is  completed  and  the  time  constraint 
is  not  half  over,  stay  in  orbit  and  stop  thrusting. 


if  rephase  diff  >  (r  ang)/2  &&  t  init  <  t  max/2 
delta_v  =  0; 
m_dot  =  0; 

else 

m_dot  =  Thrust_ep/ ( Isp*g0 ) ; 

end 


%Checks  if  orbit  is  increasing  or  decreasing  and  if  it  needs  to 
return  to  original  orbit. 

if  check  ==  1  &&  t  init  <  t  max/2 
if  rephase  diff  >  (r  ang)/2 

Vel  new  =  Vel  new  -  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
else 

Vel  new  =  Vel  new  +  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
end 

elseif  check  ==  1  &&  t  init  >  t  max/2 
if  rephase  diff  >  (r  ang)/2 

Vel  new  =  Vel  new  -  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
else 


Vel  new  =  Vel  new  +  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
end 

elseif  check  ==  2  &&  t  init  <  t  max/2 
if  rephase  diff  >  (r  ang)/2 

Vel  new  =  Vel  new  +  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
else 


Vel  new  =  Vel  new  -  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
end 

elseif  check  ==  2  &&  t  init  >  t  max/2 
if  rephase  diff  >  (r  ang)/2 

Vel  new  =  Vel  new  +  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
else 


Vel  new  =  Vel  new  -  delta  v*m2km;  %[km/s]  Calc  new 
velocity  after  delta  v 
end 


end 
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r  new  =  mu/Vel_newA2 ; 

radius  (assume  circular)  from  new  velocity 
if  r  new  <  r  min 

Vel  new  =  Vel  new  -  2*delta  v*m2km; 
after  delta  v 

r  new  =  mu/Vel_newA2 ; 

radius  (assume  circular)  from  new  velocity 
end 


%[km]  Calc  new  orbital 

%[km/s]  Calc  new  velocity 
%[km]  Calc  new  orbital 


P  new 


=  2*pi*sqrt (r_newA3/mu) ;  %[s] 


orbit 

omega  new  =  2*pi/P  new;  %[rad/s] 

new  orbit 

nu  new  =  nu  old  +  omega  new*t  step;  %[rad] 

the  new  orbit.  This  will  differ  because  it  will  be  in  a 
different  orbit  than  the  initial  orbit. 

nu  old  =  nu  new; 

rephase_diff  =  abs (nunew  -  nu) ;  %[rad]  Calc 

phase  angle 


Period  of  new 

Orbital  rate  of 

True  anomaly  of 
slightly 

difference  in 


r_new_x ( j  j ) 
transfer  orbit 
r_new_y ( j  j ) 
transfer  orbit 

rephase_tot ( j  j ) 


r  new*cos (nu  new);  %[km]  Calc  x-position  in 
r  new*sin (nu  new);  %[km]  Calc  y-position  in 
rephase  diff; 


if  t  init  ==  t  step 

delta_v_tot ( j j )  =  delta_v_tot  +  delta_v;  %[km/s] 
of  the  total  delta  v 
else 


delta_v_tot ( j j )  =  delta_v_tot ( j j  -1)  +  delta_v; 
Keeps  track  of  the  total  delta  v 
end 


%Save  variables 

r_new_tr ( j  j ,  : ) 
dv_tot  = 

pos  = 

vel(jj) 
time ( j  j ) 

j  j 


=  r  new; 

delta_v_tot ( j  j ) ; 

[r  new  x;  r  new  y] ; 

Vel  new; 

t  init;  %  [ s ]  Keeps  track  of  time 

j  j+i; 


prop_mass ( j j )  =  prop_mass(jj  -1)  +  m_dot*t_step;  %[kg] 
track  of  total  propellant 

mp_ep  =  prop_mass ( j j ) ; 

mf  =  mass; 

%Ensure  Constraints  are  met 

if  abs(r  new  -  r  init)  <  0.1  &&  t  init  >=  50*t  step 

break 


end 


end 

Th  ep  =  m  init*dv  tot/time (end) ; 


Keeps  track 


% [km/s] 


Keeps 
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Appendix  B:  Mission  2  MATLAB  Code 

Four  MATLAB  files  were  written  to  model  the  altitude  raise  and  lower  mission.  The 
primary  file  is  Run_M2.m.  This  file  is  where  all  the  initial  mission  parameters  are 
entered.  A  change  to  this  file  is  reflected  throughout  all  the  calculations.  The  files  that 
specifically  calculate  the  altitude  change  are  chemmaneuver.m  and  epmaneuver.m. 
These  files  are  accessed  in  orbraisets.m  which  runs  numerous  thrust  profiles.  The 
order  the  scripts  are  listed  in  this  file  are: 

1)  Run_M2.m 

2)  orb_raise_ts.m 

3)  chem  maneuver.m 

4)  ep_maneuver.m 


Run  M2.m  file 


%Mission  2:  This  program  raises  the  initial  orbit  of  500km  to  1500km 
%if  the  ep  system  takes  too  long  (>  48hr) ,  it  uses  ep  for  the  majority 
of  the  way,  then  switches  to  chemical  to  make  the  time  constraint. 

%The  program  then  computes  the  time  it  would  take  to  return  to  the 
%original  orbit  with  EP. 


%This  program  runs  -  orb  raise  ts.m,  ep  manuever.m,  chem  manuever.m 


%Written  by  Tiffany  Rexius  2010  -  2011 

clear; 

clc; 

%****************Vehicle  information************************* 


m  init 
P  avail 
Isp_ep 
Thrust_ep 
Isp  chem 


=  180;  % [kg] 

=  1000;  %[W] 

=  600;  %[s] 

=  0.11;  % [N] 

=  235;  %[s] 


veh  prop  =  [m  init,  Isp  ep.  Thrust  ep,  Isp  chem,  P  avail]; 

Q~-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k'k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k'k'k-k'k-k'k-k'k-k'k-k'k-k'k'k'k'k'k-k'k 

o 


%**********************ponstants** ****************** ********* 

mu  =  3.986e5;  %[kmA3/sA2] 

gO  =  9.81;  %[m/sA2] 

r_earth  =  6378;  %[km] 

hr2sec  =  60*60;  % [sec/hr] 
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sec2hr  = 
deg2rad  = 
rad2deg  = 
km2m  = 

m2  km  = 

S-  *  ~k  *  ~k  *  ~k  -k  ~k 
o 

l/hr2sec;  % [hr/sec] 

pi/180;  % [rad/deg] 

180/pi;  % [deg/rad] 

1000;  % [m/km] 

1/1000;  % [km/m] 

**************************************************** 

S --A-******* 
o 

*************** *M± s s ion  2 

*************************** 

t  const 

=  48*hr2sec; 

% [sec] 

rad  init 

=  500; 

%  [km] 

rad  final 

=  1500; 

%  [km] 

imp 

=  20*60; 

%[sec]  Impulsive  burn  for  20 

r  init 

=  rad  init  +  r  earth; 

%  [km] 

r  final 

=  rad  final  +  r  earth; 

%  [km] 

rephase  ang  =  0; 

% [rad] 

t  rtn 

=  30*24*hr2sec; 

%[sec]  Return  trip  time 

9~'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

%Tradespace  Generator  for  EP  0%  of  time  to  98%  of  time******* 
[t_ep, t_ch, Th_ch, Th_ep, ec_var, cec_var, ece_var, ece2_var, ce_var]  = 
orb  raise  ts(r  init,r  final,  t  const, veh  prop, imp); 


mp_ec 

dv_ec 

t_ec 

Ave  th  ec 
r  ec 


ec_var ( 1 , 
ec_var (2 , 
ec_var ( 3 , 
ec_var ( 4 , 
ec  var (5, 


mp_ce 

dv_ce 

t_ce 

Ave  th  ce 
r  ce 


ce_var ( 1 , 
ce_var (2 , 
ce_var ( 3 , 
ce_var ( 4 , 
ce  var (5, 


mp_cec 

dv_cec 

t_cec 

Ave  th  cec 
r  cec 


cec_var ( 1 , 
cec_var (2 , 
cec_var ( 3 , 
cec_var ( 4 , 
cec  var (5, 


mp_ece 

dv_ece 

t_ece 

Ave  th  ece 
r  ece 


ece_var ( 1 , 
ece_var (2 , 
ece_var ( 3 , 
ece_var ( 4 , 
ece  var (5, 


mp  ece2 
dv_ece2 
t_ece2 
Ave  th  ece2 
r  ece2 


ece2_var {!,:), 
ece2_var (2 , : ) , 
ece2_var ( 3 , : ) , 
ece2_var ( 4 , : ) , 
ece2  var ( 5 , : ) , 


%***************E]_ectr-j_c  propulsion  System******************* 

%For  return  trip  time  constraint  is  30  days 
[pos_ep, vel_ep, time_ep, mf , mf_ep, nu, dv_ep, Th_ep] = 

ep  maneuver (r  init,r  final,  t  rtn,  Isp  ep.  Thrust  ep,m  init,P  avail); 


116 


dv_ep_only  =  dv_ep; 
mp  ep  only  =  mf  ep; 
t_ep_only  =  time_ep; 
Th  ep  eonly  =  Th  ep; 


% [km/ s] 

%  [kg] 

% [sec] 

%  [N] 

9~'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


%***************chem-i_cal 


Propulsion  System******************* 


nu  =  0 ; 

[pos  chem,vel  chem, time  chem,mf  chem, dv  chem, Th  ch]  = 

chem  maneuver (r  init,r  final, Isp  chem,m  init,nu,t  const, imp); 


dv  ch  only  =  dv  chem*km2m;  %[km/s] 

mp  ch  only  =  mf  chem;  %[kg] 

t  ch  only  =  time  chem;  %[sec] 

ave  th  conly  =  Th  ch;  % [N]  Average  Chemical  Thrust  for  combined 

9'it'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 


%***********E]_ec-|-r;j_c/ Chemical  Propulsion 

r  init2  =  r  init; 

if  time  ep(end)  >  t  const 

t  max  ep  =  t_const  -  0.25*hr2sec; 
t  pos  =  find (time  ep  ==  t  max  ep) ; 
r_x  =  pos_ep ( 1 , t_pos ) ; 

r_y  =  pos_ep (2, t_pos) ; 

r_final2  =  sqrt ( r_x ( 1 ) A2+r_y ( 1 ) A2 )  ; 


System*************** 


[pos_ep, vel_ep, time_ep, mf , mf_ep, nu, dv_ep, Th_ep]  = 
ep  maneuver (r  init2,r  f inal2 , t_const, Isp  ep.  Thrust  ep,m  init,P  avail); 
r_final_ep  =  sqrt (pos_ep ( 1 , end) A2+pos_ep (2  ,  end) A2 )  ; 
ave  th  ecomb  =  Th  ep; 
r  init2  =  r  final2; 


[pos  chem,vel  chem, time  chem,mf  chem, dv  chem, Th  ch]  = 
chem  maneuver (r  final  ep, r  final, Isp  chem,mf,nu,t  const, imp); 
time  tot  =  time  ep (end) *sec2hr  +  time_chem (end) ; 
ave  th  comb  =  Th  ch;  % (N)  Average  Chemical  Thrust  for  combined 

end 

r_ep_check  =  sqrt (pos_ep ( 1 ,  : )  . A2  +  pos_ep (2 , : ) . A2 ) ; 
ave  th  tot  =  (ave  th  ecomb*time  ep(end)  + 
ave  th  comb*imp*2)/ (time  ep(end)  +  imp*2); 

9''k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 


%*Plot  outline  of  earth  on  plot  and  outline  of  initial  orbit* 

nu_earth  =  0; 

r  earth  =  6378;  %km 

nu_step  =  l*pi/180; 

kk  =  1; 

while  nu  earth  <  2*pi 


r  earth  x ( kk) 
r  earth  y(kk) 
r  init  x ( kk) 
r  init  y(kk) 
r  final  x ( kk) 
r  final  y(kk) 
nu  earth 
kk~ 


r_earth*cos (nu^earth)  ; 
r  earth*sin(nu  earth); 
(r_init) *cos (nu_earth) ; 
(r  init)*sin(nu  earth); 
(r_final) *cos (nu_earth) ; 
(r  final) *sin (nu  earth); 
nu  earth  +  nu  step; 
kk+1  ; 


end 
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figure ( 1 ) 

plot (mp_ec, t_ec, ' b ' , mp_cec, t_cec, ' r ' , mp_ece, t_ece, ' g ' , mp_ece2 , t__ece2 , '- 
Ar ' , mp_ce, t_ce, ' -xb') 

title (' Propellant  Mass  vs.  Trip  Time  for  100%  Chemical  to  2%  Chemical') 
legend (' Electric  -  Chemical Chemical  -  Electric  -  Chemical Electric 

-  Chemical  -  Electric Electric  -  Chemical  -  Electric  remaining 
time Chemical  -  Electric') 

xlabel (' Propellant  Mass') 
ylabel (' Total  Trip  time  (hr)') 
ts  =  linspace (5, 90, length (t_ep) ) ; 

figure  (2 ) 

plot (pos_ep ( 1 , : ) , pos_ep (2 , : ) , r_init_x, r_init_y, r_earth_x, r_earth_y, pos_ 

chem ( 1 , : ) , pos  chem (2 , : ) , r  final  x,  r  final  y) 

legend (' Transfer  Orbit  EP  [ km] ',' Initial  Orbit  [km]', 'Earth 

[ km] ',' Transfer  Orbit  Chemical  [km]', 'Final  Orbit  [km]') 

figure ( 3 ) 

plot (mp_ep_only, t_ep_only (end) *sec2hr, 'o',... 
mp_ch_only, t_ch_only (end)  ,  ' A '  ,  .  .  . 
mp_ec (end) , t_ec (end)  ,  ' x '  ,  .  .  . 
mp_ece2 (end) , t_ece2 (end)  ,  ' d '  ,  .  .  . 
mp_ece (end) , t_ece (end)  ,'  +  ',... 
mp_ce (end) , t_ce (end)  ,  ' s '  ,  .  .  . 
mp_cec (end) , t_cec (end)  ,  '<',  'MarkerSize',10) 
grid  on 

ylabel ( ' Trip  time  (hr) ' ) 
xlabel (' Propellant  Mass  (kg)') 
legend ( 'EP  Only  System' , . . . 

'Chemical  Only  System' , . . . 

' Electric  -  Chemical ' , . . . 

'98%  of  Time  Electric  -  Chemical  -  Electric',... 

'49%  of  Time  Electric,  Chemical,  49%  of  time  Electric',... 

'Chemical  -  98%  of  Time  Electric' , . . . 

'Chemical  -  98%  of  Time  Electric  -  Chemical') 

figure ( 4 ) 

plot (t_ec, Ave_th_ec, ' b ' , t_cec, Ave_th_cec, ' r ' , t_ece, Ave_th_ece, 'g',t_ece 
2 , Ave_th_ece2 , ' - Ar ' , t_ce, Ave_th_ce, '-xb') 
title (' Mission  2:  1000  km  orbit  raise') 

legend (' Electric  -  Chemical ',' Chemical  -  Electric  -  Chemical ',' Electric 

-  Chemical  -  Electric ',' Electric  -  Chemical  -  Electric  remaining 
time ',' Chemical  -  Electric') 

ylabel (' Average  Thrust  (N) ') 
xlabel ('%  Electric  Propulsion') 

figure ( 5 ) 

plot (mp_cec, t_cec,  ' x ' ) 

title (' Chemical/Electric/Chemical  Propulsion  from  100%  Chemical  to  5% 
Chemical ' ) 

ylabel ('Time  to  Complete  Mission  (hr) ') 

xlabel (' Propellant  Mass  to  Complete  Mission  (kg) ') 

figure (6) 
subplot  (2,1,1) 
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plot (Ave_th_ec, mp_ec, ' b ' , Ave_th_cec, mp_cec, ' r ' , Ave_th_ece, mp_ece, ' g',Av 
e  th  ece2,mp  ece2,  '-Ar',Ave  th_ce,mp  ce,  '-xb') 

title (' Mission  2:  1000  km  orbit  raise  for  100%  Chemical  to  2% 

Chemical ' ) 

legend (' Electric  -  Chemical Chemical  -  Electric  -  Chemical Electric 

-  Chemical  -  Electric Electric  -  Chemical  -  Electric  remaining 
time Chemical  -  Electric') 

xlabel (' Average  Thrust  (N) ') 
ylabel (' Propellant  Mass  (kg)') 
subplot (2, 1,2) 

plot (Ave_th_ec, t_ec, ' b ' , Ave_th_cec, t_cec, ' r ' , Ave_th_ece, t_ece, 'g',Ave_t 
h_ece2 ,  t_ece2 ,  '  -  Ar  '  ,  Ave_th_ce,  t__ce,  '-xb') 

title (' Mission  2:  1000  km  orbit  raise  for  100%  Chemical  to  2% 

Chemical ' ) 

legend (' Electric  -  Chemical ',' Chemical  -  Electric  -  Chemical ',' Electric 

-  Chemical  -  Electric ',' Electric  -  Chemical  -  Electric  remaining 
time ',' Chemical  -  Electric') 

xlabel (' Average  Thrust  (N) ') 
ylabel ('Trip  Time  (hr)') 


figure  ( 7 ) 

plot ( 1 inspace (0,98,21) , mp_ece, ' -x ' , 1 inspace (0,98,21) , mp_ece2 , ' - 
* ' , 1 inspace (0,98,21) , mp_ec, ' — < ' , 1 inspace ( 0 , 98,21) , mp_cec, ' - 
o ' , 1 inspace (0,98,21) , mp_ce, '-s') 

legend (' Electric  -  Chemical  -  Electric', 'Electric  -  Chemical  -  Electric 

remaining  time', 'Electric  -  Chemical', 'Chemical  -  Electric  - 

Chemical ',' Chemical  -  Electric') 

xlabel (' %  Electric  Propulsion') 

ylabel (' Propellant  Mass  (kg) ') 


fprintf (' \n\n* ***** *Results  for  Mission  2 
fprintf ( '  Initial  orbit  (km)  =  %6.2f\n' 
fprintf ( '  Final  orbit  (km)  =  %6.2f\n\ 
fprintf ('***** *Chemical  System  Only****** 
Only******\n ' ) 

fprintf (' Transfer  time  (hr)  =  %6.2f 
%6 . 2f \n ' , t_ch_only, t_ep_only (end) *sec2hr) 
fprintf (' Delta  V  (m/s)  =  %6.2f 

%6.2f\n',dv  ch  only,dv  ep  only) 
fprintf (' Propellant  Mass  (kg)  =  %6.2f 
%6.2f\n',mp  ch  only,mp  ep  only) 
fprintf (' Average  Thrust (N)  =  %6.2f 

%6 . 2f \n\n ' , ave  th  conly, Thrust  ep) 
fprintf (' *Electric/Chemical  System  Values* 
System  Values*\n') 

fprintf (' Trip  Time  (hr)  =  %6.2f 

%6 . 2f \n ' , t_ec (end) , t_ce (end) ) 

fprintf (' Delta  V  (m/s)  =  %6.2f 

%6 . 2f \n ' , dv_ec (end) , dv_ce (end) ) 

fprintf (' Propellant  Mass  (kg)  =  %6.2f 

%6 . 2f \n ' , mp_ec (end) , mp_ce (end) ) 

fprintf (' Average  Thrust (N)  =  %6.2f 

%6 . 2f \n\n ' , Ave_th_ec (end) , Ave_th_ce (end) ) 

fprintf (' *Elec/Chemical/Elec  System  Values’ 

System  Values*\n') 


:  Orbit  Raise* ******** /n ' ) 

, rad_init) 
n ' , rad  final ) 

*  *  *  *  *  * *Electric  System 


Transfer  time  (hr) 
Delta  V  (m/s) 
Propellant  Mass  (kg) 
Average  Thrust  (N) 
*Chemical /Electric 
Trip  Time  (hr) 

Delta  V  (m/s) 
Propellant  Mass  (kg) 
Average  Thrust (N) 
*Elec/ Chemical /Elec2 
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6 . 2f 

Trip  Time  (hr) 

6 . 2f 

Delta  V  (m/s) 

6 . 2f 

Propellant  Mass  (kg) 

6 . 2f 

Average  Thrust (N) 

fprintf ( ' Trip  Time  (hr)  = 

%6 . 2f \n ' , t_ece (end) , t_ece2 ( 1 ) ) 
fprintf (' Delta  V  (m/s)  = 

%6 . 2f \n ' , dv_ece (end) , dv_ece2 ( 1 ) ) 
fprintf (' Propellant  Mass  (kg)  = 

%6 . 2f \n ' , mp_ece (end) , mp_ece2 ( 1 ) ) 
fprintf ( 'Average  Thrust (N) 

%6 . 2f \n\n ' , Ave_th_ece (end) , Ave_th_ece2 ( 1 ) ) 
fprintf (' *Chemical/Electric/Chemical  System  Values*\n') 
'  '  ''"Trip  Time  (hr)  =  °  A  A "  '  ' 

Delta  V  (m/s)  = 

Propellant  Mass  (kg)  = 

Average  Thrust (N)  = 

fprintf (' *********Orbit  Raise  & 
fprintf ('** *EP  thrust  initially, 
fprintf (' Trip  Time (hr)  = 

Delta  V  (m/s)  = 

Propellant  Mass  (kg)  = 

Thrust (N) 


fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 


fprintf ( 
fprintf ( 


fprintf ( 'Average 
Th_ep_eonly) / 2) 


%6 . 2f \n ' , t_cec (end) ) 

%6 . 2f \n ' , dv_cec (end) ) 

%6 . 2f \n ' , mp_cec (end) ) 

%6 . 2f \n\n ' , Ave_th_cec (end) ) 
Return**************\n ' ) 
then  Chem**********\n ' ) 

%6 . 2f \n ' , t_ece (end) ) 

%6 . 2f \n ' , dv_ece (end)  +  dv_ep_only) 
%6.2f\n',mp  ece (end) +  mp  ep  only) 
%6.2f\n\n', (Ave  th  ece (end)  + 


ep  maneuver.m  file 


function  [pos, vel, time,mf , mp  ep,nu,dv  tot,Th  ep]  = 
ep  maneuver(r  init,r  final, t  max, Isp, Thrust, m  init,P  avail) 
format  long 

%************0onstants ********************************************* 


mu  =  3.986e5;  %[kmA3/sA2] 

gO  =  9.81;  %[m/sA2] 

r_earth  =  6378;  %[km] 

hr2sec  =  60*60;  %[sec] 

m2 km  =  1/1000;  %[km] 


Q-'k'k-k'k-k'k'k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k'k'k-k'k-k'k-k'k'k'k-k'k-k'k-k'k'k'k-k'k'k'k-k'k'k'k-k'k-k'k-k'k'k'k-k'k-k'k-k'k'k'k-k'k'k 


m_dot 
a  init 
P_init 
omega  init 
Vel  init 


Thrust/ (Isp*g0) ; 
r  init; 

2*pi*sqrt (a_init A3/mu) ; 
2*pi/P  init; 
sqrt (mu/r_init) ; 


% [kg/s] 

%[km]  if  circular  orbit 
%[s] 

% [rad/ s] 

% [ km/ s ] 


t  step 

=  90; 

%[s] 

t  init 

=  0; 

%  [S] 

delta  v  tot 

=  0; 

% [km/s] 

prop  mass 

=  0; 

%  [kg] 

nu 

=  0; 

% [rad] 

j  j 

=  1; 

% [ ]  Count 

Vel  new 

=  Vel  init; 

% [ km/ s ] 

nu  old 

=  0; 

% [rad] 

tol 

=  0.2; 

%  [km] 

mass 

=  m  init; 

%  [kg] 
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while  abs (r  final  -  r  init)  >  tol 
t  init  =  t  init  +  t  step; 

nu  init  =  omega  init*t  step; 
satellite  would  be  in  initial  orbit 
nu  =  nu  +  nu  init; 

initial  orbit 

mass  =  mass  -  m_dot*t_step; 

after  thrusting  for  a  time  step 


% [ s ]  Begin  at  first  time  step 
%[rad]  Calc,  true  anomaly  where 

%[rad]  Update  position  in 

%[kg]  Calculate  update  mass 


delta_v  =  Isp*gO*log (m_init/mass ) ;  %[m/s]  Calc  delta  v  required 
to  thrust  1  time  step 


m  init  =  mass;  %[kg]  Resets  initial  mass; 

if  r  final  <  r  init 

Vel  new  =  Vel  new  +  delta  v*m2km;  %[km/s]  Calc  new  velocity 
after  delta  v 
else 


Vel  new 

=  Vel  new  -  delta  v*m2km; 

%[km/s]  Calc  new  velocity 

after  delta  v 

end 

r  new 

=  mu/Vel  newA2; 

%  [km] 

Calc  new  orbital 

radius  (assume 

circular)  from  new  velocity 

P  new 

=  2*pi*sqrt(r  newA3/mu) ; 

%[s] 

Period  of  new  orbi' 

omega  new 

=  2*pi/P  new; 

% [rad/s]  Orbital  rate  of 

new  orbit 

nu  new 

=  nu  old  +  omega  new*t  step; 

% [rad] 

True  anomaly  of  the 

new  orbit.  This 

will  differ  because  it  will 

be  in 

a  slightly  different 

orbit  than  the 

initial  orbit. 

nu  old 

=  nu  new; 

r  new  x ( j  j ) 

=  r  new*cos (nu  new) ; 

%  [km] 

Calc  x-position  in 

transfer  orbit 

r_new_y ( j  j ) 

=  r  new*sin(nu  new); 

%  [km] 

Calc  y-position  in 

transfer  orbit 

r  init 

=  r  new; 

time  total (jj)  =  t  init; 

%[s] 

Keeps  track  of  time 

if  t  init  ==  t  step 

delta_v_tot ( j j )  =  delta_v; 

else 

delta_v_tot ( j j )  =  delta_v_tot ( j j -1 )  +  delta_v; 

end 

nu_track(jj)  =  nu; 

vel(jj)  =  Vel_new; 

time(jj)  =  t_init; 

dv^tot  =  delta_v_tot ( j j ) ; 

jj  =jj+i; 

prop_mass ( j j ) =  prop__mass ( j j  -1)  +  m_dot*t_step;  %[kg]  Keeps  track 
of  total  propellant 

mp_ep  =  prop_mass ( j j ) ; 

if  t  init  >  t  max 
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break 


end 

end 

Th  ep  =  m  init*dv  tot/ (time (end) ) ;  %[N] 

pos  =  [r  new  x;  r  new  y] ; 

nu  =  nu_old; 

mf  =  m  init; 


chem  maneuver.m  file 


function  [pos, vel, time, m  prop,dv  tot,Th  ch]= 

chem  maneuver (r  init,r  final, Isp,m  init,nu,t  tot, imp) 

format  long 


^*  ********  *  *  * Cons t ant s  *  ******************************************** 

mu  =  3.986e5;  %kmA3/sA2 

gO  =9.81;  %m/sA2 

sec2hr  =  1/3600; 

km2m  =  1000; 

S'icieificicic'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 


burn  time 
a  init 
P_init 
omega  init 
Vel  init 


=  2  * imp ; 

=  r  init; 

=  2*pi*sqrt (a_initA3/mu) ; 
=  2*pi/P  init; 

=  sqrt (mu/r_init) ; 


% [sec]  for  Hohmann  2  burns 
%[km]  if  circular  orbit 
%[s] 

% [rad/s] 

% [km/s] 


a_trans 
P  trans 
omega  trans 
Energy  tr 
Vel  transl 


=  (r  init  +  r  final) /2; 

=  2*pi*sqrt (a_transA3/mu) ; 

=  2*pi/P_trans; 

=  -mu/ (2*a_trans) ; 

=  sqrt (2* (mu/r  init+Energy  tr)  )  ; 


%  [km] 

%[s] 

% [rad/ s] 
%[kmA2/sA2] 
% [km/s] 


dvl 

time 


=  abs (Vel_init  -  Vel_transl);  %[km/s] 

=  pi*sqrt (a_trans A3/mu) *sec2hr;  %[s] 


Vel  final 
a  final 
p-final 
omega  final 
Vel  trans2 
dv2 

dv^tot 
m  prop 
mf 

Th_ch 

a 

ecc 

per 


sqrt (mu/r  final); 

% [km/ s] 

r  final; 

%  [km] 

2*pi*sqrt(a  finalA3/mu) ; 

%[s] 

2*pi/P  final; 

% [rad/ s] 

sqrt (2* (mu/r  final+Energy  tr) ) ; 

% [km/ s] 

abs (Vel  final  -  Vel  trans2); 

% [km/ s] 

dv2  +  dvl; 

m  init  -  m  init*exp(-dv  tot*km2m/Isp/gO) ; 

m  init  -  m  prop; 

m  init*dv  tot*km2m/ (burn  time) ; 

%  [N] 

(r  init  +  r  final) /2; 

=  1  -  r_init/a; 

=  a* ( 1  -  eccA2 ) ; 


nu  init  =  nu; 

nu  final  =  nu  +  2*pi/2;  %[rad]  Hohmann  transfer  so  180  deg 
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kk  =  1 ; 

while  nu  <  nu  final 


r  trans 
v  trans ( kk) 
r  init  x ( kk) 
r  init  y(kk) 
nu 
kk 

end 

pos  =  [r_init_x; 

vel  =  v  trans; 


=  per/ ( l+ecc*cos (n 
=  sqrt (2* (Energy  t 
=  r_trans*cos (nu  - 
=  r  trans*sin (nu  - 
=  nu  +  l*pi/180; 

=  kk+1; 

r_init_y] ; 


-  nu_init) ) ; 

'  +  mu/r_trans ) ) ; 
nu_init) ; 
nu  init) ; 


orb  raise  ts  file 


function 

[t_ep, t_ch, Th_ch_tr, Th_ep_tr, ec_var, cec_var, ece_var, ece2_var, ce_var]  = 


orb  raise  ts (r  init. 

r  final, t  cons' 

m  init 

=  veh  prop ( 1 

)  ; 

Isp  ep 

=  veh  prop (2 

)  ; 

Thr  ep 

=  veh  prop (3 

)  ; 

Isp  ch 

=  veh  prop ( 4 

)  ; 

P  avail 

=  veh  prop (5 

) ; 

%********************  *  *Cons tant s  *  * 

mu 

=  3 . 98  6e5 ; 

% [kmA3/sA2] 

gO 

=  9.81; 

% [m/sA2] 

r  earth 

=  6378; 

%  [km] 

hr2sec 

=  60*60; 

%  [ sec/hr] 

sec2hr 

=  1 /hr2sec; 

% [hr/ sec] 

deg2rad 

=  pi/180; 

% [rad/deg] 

rad2deg 

=  180/pi; 

% [deg/ rad] 

km2m 

=  1000; 

% [m/km] 

m2  km 

=  1/1000; 

% [ km/m] 

9''k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

min  ep  =  0; 
max  ep  =  0.981; 
step  ep  =  max  ep/20; 

o 

kk  =  1; 

for  nu  =  0:0.01:2*pi 


rx  init ( kk) 
ry  init ( kk) 
rx  final ( kk) 
ry  final ( kk) 
kk~ 


r_init*cos (nu) ; 
r  init*sin (nu) ; 
r_final*cos (nu) ; 
r  f inal*sin (nu) ; 
kk  +  1; 


end 


o 

%********** *ElectriC/ChemiCal  Propulsion  System*********************** 
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9'i<^^^i<^^^i<^^^i<'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

kk  =  1; 

for  i  =  min  ep:step  ep:max  ep 
t_max_ep  =  t_const* (i) ; 

[pos_ep, vel_ep, time_ep, mf , mp_ep, nu, dv_ep, Th_ep]  = 
ep  maneuver (r  init,r  final, t  max  ep, Isp  ep,Thr  ep,m  init,P  avail); 
r_init2  =  sqrt (pos_ep ( 1 , end) A2+pos_ep (2 , end) A2 ) ; 

t_ep(kk)  =  time_ep (end) ; 

Th_ep_tr(kk)  =  Th_ep; 

t_ch_cons  =  t_const  -  time_ep (end) ; 

rx_epl  =  pos_ep(l,:); 

ry_epl  =  pos_ep(2,:); 


[pos  ch,vel  ch,time  ch,mf  ch,dv  ch,Th  ch]  = 
chem  maneuver (r  init2,r  final, Isp  ch,mf,nu,t  ch  cons, imp); 


pos_ch ( 1 , ; ) ; 
pos_ch (2 ,  :  )  ; 

sqrt (pos_ch ( 1 , end) A2  +  pos_ch (2 , end) A2 ) ; 

Th_ch; 

time  ch; 


rx  chi 
ry  chi 
r_ec ( kk) 

Th_ch_tr (kk) 
t_ch(kk)  _ 

Ave  th  ec(kk)  = 

(Th  ch*time  ch*hr2sec+Th  ep*time  ep(end))/ (time  ep(end)  + 

time  ch*hr2sec) ; 

mp  ec(kk)  =  mf_ch  +  mp  ep; 

t  ec(kk)  =  time  ep (end) *sec2hr  +  time  ch(end); 

dv  ec(kk)  =  dv  ch*km2m  +  dv  ep; 

kk  =  kk  +1; 


end 

figure ( 12 ) 

plot ( rx  chi , ry  chi , ' -x ' , rx  epl , ry_epl , ' -- 
' , rx  init,ry  init,rx  f inal , ry_f inal ) 
title (' Electric  -  Chemical  Profile') 

legend ( 1  Electric  Segment ' ,  ' ChemicalSegment ' ,  ' Initial  Orbit ' ,  ' Final 
Orbit' ) 


Q~-k'k-k-k-k'k-k-k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k 

o 

%DEVELOPING  ANOTHER  THRUST  SCHEME,  22  Sep  10 

^* ********  *  * chemical /Electric/ Chemical  Propulsion  System*************** 

jj  =  i; 

max  ep2  =  max  ep  -  step  ep*0.39; 
step_ep2  =  max_ep2/20; 
for  i  =  min  ep:step  ep2:max  ep2 
t_epl  =  i*t_const; 

[pos  epl,vel  epl, time  epl,mfl,mp  epl,nul,dv  epl,Th  epl]  = 
ep  maneuver (r  init  +  500,  r  final,  t  epl, Isp  ep,Thr  ep,m  init,P  avail); 
%Find  what  altitude  increase  can  be  achieved  by  EP  in  time  period 
%Use  Chemical  to  perform  half  of  the  remaining  altitude  change 
r_ep_final  =  sqrt (pos_epl ( 1 , end) A2+pos_epl (2 , end) A2 ) ; 
r  ep  =  r  ep  final  -  r  init; 

r  ch  seg  =  r  ep/2  +  r  init; 
nu  =  0  ; 

[pos_chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver (r  init,r  ch  seg, Isp  ch,m  init,nu,t  const,  imp); 
r_init_ep  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2 , end) A2 ) ; 
m  init  ep  =  m  init  -  mf  chi; 


124 


rx_chl  =  pos_chl ( 1 , : ) ; 

ry_chl  =  pos_chl (2 , : ) ; 

[pos  ep2,vel  ep2,time  ep2,mf2,mp  ep2,nu2,dv  ep2,Th  ep2]  = 
ep  maneuver (r  init  ep,r  final, t  epl,Isp  ep,Thr  ep,m  init  ep, P  avail); 
rx_epl  =  pos_ep2 (1, : ) ; 

ry_epl  =  pos_ep2 (2,  : )  ; 

r_init_ch  =  sqrt (pos_ep2 ( 1 , end) A2+pos_ep2 (2 , end) A2 ) ; 
t  ch  sec  =  t  const  -  time  ep2  -  time  chl*hr2sec; 


[pos  ch2,vel  ch2,time  ch2,mf  ch2,dv  ch2,Th  ch2]  = 
chem  maneuver (r  init  ch,r  final,  Isp  ch,mf,nu2,t  ch  sec, imp); 
rx_ch2  =  pos_ch2 (1,  : )  ; 

ry_ch2  =  pos_ch2 (2,  : )  ; 

Ave  th  cec(jj)  =  (Th  ch2*time  chl*hr2sec  + 

Th  chl*time  chl*hr2sec+Th  ep2*time  ep2 (end) ) / (time  ep2 (end)  +  (time  ch2 
+  time  chi ) *hr2sec) ; 

r_cec(jj)  =  sqrt (pos_ch2 ( 1 , end) A2+pos_ch2 (2  ,  end) A2 )  ; 

mp  cec(jj)  =  mf  chi  +  mf  ch2  +  mp  ep; 

dv  cec(jj)  =  dv  chl*km2m  +  dv  ep(end)  +  dv  ch2*km2m; 

t  cec(jj)  =  time  chi  +  time_ch2  +  time  ep2 (end) *sec2hr; 

jj  =  jj  +  i; 


end 

%  figure ( 8 ) 

%  plot(rx  chi , ry_chl , ' -x ' , rx  ch2,ry  ch2,'-x',rx  epl,ry  epl,'-- 
'  , rx  init,ry  init,rx  final, ry  final) 

%  title (' Chemical  -  Electric  -  Chemical  Profile') 

%  legend ('1st  Chemical  Segment', 'Electric  Segment', '2nd  Chemical 
Segment ',' Initial  Orbit ',' Final  Orbit') 

8~'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

%DEVELOPING  ANOTHER  THRUST  SCHEME,  28  Sep  10 

%***** ******ElectriC/Chemical /Electric  Propulsion  System*************** 


kk  =  1; 


for  i  =  min  ep:step  ep:max  ep 
t_epl  =  i*t_const/2; 

[pos  epl,vel  epl,time  epl,mfl,mp  epl,nul,dv  epl,Th  epl]  = 
ep  maneuver (r  init,r  final, t  epl, Isp  ep,Thr  ep,m  init,P  avail); 


%Find  what  altitude  increase  can  be  achieved  by  EP  in  time  period 
r_ep_final  =  sqrt (pos_epl ( 1 , end) A2+pos_epl (2 , end) A2 ) ; 
r  ep  =  r  ep  final  -  r  init; 

r  ep  final  =  r  init  +  1.2*r  ep; 

r  ch  seg  =  ( (r  final  -  r  init)  -  (r  ep  final  -  r  init) )  +  r  init; 


[pos  chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver (r  ep  final, r  ch  seg, Isp  ch,m  init,nul,t  const, imp); 


r_init_ep  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2 , end) A2 ) ; 
m  init  ep  =  m  init  -  mf  chi; 


while  abs (r  init  ep  -  r  final)  <  0.2 
r  ch  seg  =  r  ch  seg  -  1; 

[pos_chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver (r  ep  final,  r  ch  seg,  Isp  ch,m  init,nul,t  const, imp); 
r_init_ep  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2 , end) A2 ) ; 
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m  init  ep  =  m  init  -  mf  chi; 

end 

[pos  ep2,vel  ep2,time  ep2,mf2,mp  ep2,nu2,dv  ep2,Th  ep2]  = 
ep  maneuver (r  init  ep,r  final,  t  epl,Isp  ep,Thr  ep,m  init  ep,  P  avail); 


while  time  ep2 (end)  <  t  epl 

r_ch_seg  =  r_ch_seg  -  1; 

[pos  chl,vel  chi, time  chi , mf_chl , dv  chl,Th  chi]  = 
chem  maneuver (r  ep  final,  r  ch  seg, Isp  ch,m  init,nul,t  const, imp); 
r_init_ep  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2  ,  end) A2 )  ; 
m  init  ep  =  m  init  -  mf  chi; 

[pos  ep2,vel  ep2,time  ep2,mf2,mp  ep2,nu2,dv  ep2,Th  ep2]  = 
ep  maneuver (r  init  ep,r  final,  t  epl, Isp  ep,Thr  ep,m  init  ep, P  avail) 
end 

rx_epl  =  pos_epl(l, 

ry_epl  =  pos_epl(2, 

rx_ep2  =  pos_ep2(l, 

ry_ep2  =  pos_ep2(2, 

rx  chi  =  pos  chl(l, 

ry  chi  =  pos  chi (2, 

Ave  th  ece(kk)  =  (Th  ep2*time  ep2 (end)  + 

Th  chl*time  chl*hr2sec+Th  epl*time  epl (end) )/ (time  ep2 (end)  + 
time  epl (end)  +  time  chl*hr2sec) ; 

r_ece(kk)  =  sqrt (pos_ep2 ( 1 , end) A2+pos_ep2 (2  ,  end) A2  )  ; 

mp  ece(kk)  =  mf  chi  +  mp  epl  +  mp  ep2; 

dv  ece(kk)  =  dv  chl*km2m  +  dv  epl (end)  +  dv  ep2 (end) ; 

t  ece(kk)  =  time  chi  +  time  epl (end) *sec2hr  + 

time  ep2 (end) *sec2hr; 

kk  =  kk  +  1 ; 


end 


%  figure (9) 

%  plot (rx  epl , ry_epl , ' , rx  chi , ry  chi , 1 -x ' , rx  ep2 , ry  ep2 , ' -- 
' , rx  init,ry  init,rx  f inal , ry_f inal ) 

%  title  (' Electric  -  Chemical  -  Elecric  Profile') 

%  legend ('1st  Electric  Segment', 'Chemical  Segment', '2nd  Electric 
Segment ',' Initial  Orbit ',' Final  Orbit') 

O'*  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k 

o 

%DEVELOPING  ANOTHER  THRUST  SCHEME,  28  Sep  10 

%*******EleCtriC/ Chemical /Electric2  Propulsion  System* ************ 
%Initial  Electric  for  x%  of  total  time,  chemical,  electric  for 
remainder  of  time  constraint. 


kk  =  1; 


max 

step 

for 


ep2  =  max_ep  -  2*step_ep; 

ep2  =  max  ep2/20; 
i  =  min  ep:step  ep2:max  ep2 
%Calculate  amount  of  time  EP 
if  i  ==  min  ep 
t_epl 


time  epl 
pos_epl 
mf  1 

mp  epl 


0; 

0; 

[r_init; 
m  init; 

o7 


0]  ; 


can  thrust  for. 


from  0 


98%  of  time 
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else 


0; 

0; 

0; 


nul 

dv_epl 
Th_epl 

t_epl  =  i*t_const; 

[pos  epl,vel  epl,time  epl,mfl,mp  epl,nul,dv  epl,Th  epl]  = 
ep  maneuver(r  init,r  final, t  epl,Isp  ep,Thr  ep,m  init,P  avail); 
end 

%Find  what  altitude  increase  can  be  achieved  by  EP  in  time  period 
r_ep_final  =  sqrt (pos_epl ( 1 , end) A2+pos_epl (2  ,  end) A2 )  ; 
r  ep  =  r  ep  final  -  r  init; 

r  ch  seg  =  ( (r  final  -  r  init)  -  (r  ep  final  -  r  init) )  +  r  init 

[pos  chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver(r  ep  final, r_ch  seg, Isp  ch,m  init, nul, t  const, imp); 

r_init_ep  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2  ,  end) A2  )  ; 
m  init  ep  =  m  init  -  mf  chi; 

time  ep  =  t  const  -  t  epl  -  time  chl*hr2sec; 

while  abs (r  init  ep  -  r  final)  <  0.2 

r  ch  seg  =  r  ch  seg  -  1; 

[pos  chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver(r  ep  final, r_ch  seg,  Isp  ch,m  init, nul, t  const, imp); 
r_init_ep  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2  ,  end) A2 )  ; 
m  init  ep  =  m  init  -  mf  chi; 

time  ep  =  t  const  -  t  epl  -  time  chl*hr2sec  -  90;  %Prevent 

going  over  the  time  constraint, 
end 

[pos  ep2,vel  ep2,time  ep2,mf2,mp  ep2,nu2,dv  ep2,Th  ep2]  = 
ep  maneuver (r  init  ep,r  final, time  ep, Isp  ep,Thr  ep,m  init  ep, P  avail) 
time  check(kk)  =  time  ep2 (end) ; 

r_ep_check ( kk)  =  sqrt (pos_ep2 ( 1 , end) A2+pos_ep2 (2 , end) A2 ) ; 
while  r  ep  check (kk)  <  r  final  -  1 
r_ch_seg  =  r_ch_seg  +  0.5; 

[pos  chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver (r  ep  final, r  ch  seg, Isp  ch,m  init, nul, t  const, imp); 
r_init_ep  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2 , end) A2 ) ; 
m  init  ep  =  m  init  -  mf  chi; 

time  ep  =  t  const  -  t  epl  -  time  chl*hr2sec  -  90;  %Prevent 

going  over  the  time  constraint. 

[pos  ep2,vel  ep2,time  ep2,mf2,mp  ep2,nu2,dv  ep2,Th  ep2]  = 
ep  maneuver (r  init  ep,r  final, time  ep,Isp  ep,Thr  ep,m  init  ep, P  avail) 
time_check ( kk)  =  time  ep2 (end) ; 

r_ep_check ( kk)  =  sqrt (pos_ep2 ( 1 , end) A2+pos_ep2 (2 , end) A2 ) ; 

end 

while  time  ep2 (end)  <  time  ep  -  2*90 
r_ch_seg  =  r_ch_seg  -  0.5; 

[pos_chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver (r  ep  final, r  ch  seg, Isp  ch,m  init, nul, t  const, imp); 
r_init_ep  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2 , end) A2 ) ; 
m  init  ep  =  m  init  -  mf  chi; 

time  ep  =  t  const  -  t  epl  -  time  chl*hr2sec  -  90; 
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[pos  ep2,vel  ep2,time  ep2,mf2,mp  ep2,nu2,dv  ep2,Th  ep2] 
ep  maneuver (r  init  ep,r  final, time  ep, Isp  ep,Thr  ep,m  init  ep, P 
end 

if  kk  ==  1 


rx 

epla 

=  pos  epl ( 1 , : 

; 

ry_ 

epla 

=  pos  epl (2 , : 

; 

rx 

ep2a 

=  pos  ep2 ( 1 , : 

; 

ry_ 

ep2a 

=  pos  ep2  (2 ,  : 

; 

rx 

chla 

=  pos  chi ( 1 , : 

; 

ry_ 

chla 

=  pos  chi (2 , : 

; 

end 

rx  epl 

=  pos  epl ( 1 , 

)  ; 

ry  epl 

=  pos  epl (2 , 

)  ; 

rx  ep2 

=  pos  ep2 ( 1 , 

)  ; 

ry  ep2 

=  pos  ep2 (2 , 

)  ; 

rx  chi 

=  pos  chi  ( 1 , 

)  ; 

ry  chi 

=  pos  chi (2 , 

) ; 

Ave  th 

ece2 (kk) 

=  (Th  ep2*time  ep2 (end)  + 

Th  chl*time  chl*hr2sec+Th  epl*time  epl (end) )/ (time  ep2 (end)  + 
time  epl (end)  +  time  chl*hr2sec) ; 

r_ece2 (kk)  =  sqrt (pos_ep2 ( 1 , end) A2+pos_ep2 (2 , end) A2 ) ; 

mp  ece2(kk)  =  mf  chi  +  mp  epl  +  mp  ep2; 

dv  ece2(kk)  =  dv  chl*km2m  +  dv  epl (end)  +  dv  ep2 (end) ; 

t  ece2(kk)  =  time  chi  +  time  epl (end) *sec2hr  + 

time  ep2 (end) *sec2hr; 

kk  =  kk  +  1 ; 


end 

figure (10) 
subplot (1,2,1) 

plot (rx  epl , ry  epl , ' -- ' , rx_chl , ry  chi , ' -x ' , rx  ep2 , ry  ep2 ,  '  -  - 

'  ,  rx  init,ry  init,rx  final, ry  final) 

title (' Electric  -  Chemical  -  Elecric  Profile') 

legend ('1st  Electric  Segment ',' Chemical  Segment ',' 2nd  Electric 
Segment ',' Initial  Orbit ',' Final  Orbit') 
subplot (1,2,2) 

plot ( rx_epla, ry_epla, ' , rx_chla, ry_chla, ' -x ' , rx_ep2a, ry_ep2a, 

' , rx  init,ry  init,rx  final, ry  final) 

title (' Electric  -  Chemical  -  Elecric  Profile') 

legend('lst  Electric  Segment ',' Chemical  Segment ',' 2nd  Electric 
Segment ',' Initial  Orbit ',' Final  Orbit') 

9''k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

%DEVELOPING  ANOTHER  THRUST  SCHEME,  28  Sep  10 

%***********chemical /Electric  Propulsion  System*************** 
%Initial  Electric  for  x%  of  total  time,  chemical,  electric  for 
remainder  of  time  constraint. 


avail ) 


kk  =  1; 

for  i  =  min  ep:step  ep:max  ep 

%Calculate  amount  of  time  EP  can  thrust  for,  from  0  -  98%  of  time 
t_epl  =  i*t_const; 

r  init2  =  (r  final  -  r  init)/2  +  r  init; 

[pos  epl,vel  epl, time  epl,mfl,mp  epl,nul,dv  epl,Th  epl]  = 
ep  maneuver(r  init2,r  final, t  epl, Isp  ep,Thr  ep,m  init,P  avail); 


%Find  what  altitude  increase  can  be  achieved  by  EP  in  time  period 
r_ep_final  =  sqrt (pos_epl ( 1 , end) A2+pos_epl (2 , end) A2 ) ; 
r  ep  =  r  ep  final  -  r  init2; 
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r  ep  final  =  r  init  +  r  ep; 

r  ch  seg  =  ( (r  final  -  r  init)  -  (r  ep  final  -  r  init) )  +  r  init 
nu  =  0 ; 


[pos  chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver (r  init,r  ch  seg,Isp  ch,m  init,nu,t  const, imp); 


r  init  ep 
m  init  ep 

%time_ep 


=  sqrt (pos_chl ( 1 , end) A2+pos_chl (2 , end) A2 ) ; 
=  m  init  -  mf  chi; 

=  t  const  -  time  chl*hr2sec; 


if  abs (r  init  ep  -  r  final)  <  0.2 
Ave  th  ce(kk)  = 

(Th  chl*time  chl*hr2sec+Th  epl*time  epl (end) )/ (time  epl (end)  + 
time_chl*hr2sec) ; 

r_ce(kk)  =  sqrt (pos_chl ( 1 , end) A2+pos_chl (2  ,  end) A2 )  ; 
mp  ce(kk)  =  mf_chl; 
dv  ce(kk)  =  dv_chl*km2m; 
t  ce(kk)  =  time  chi; 
kk  =  kk  +  1; 

else 


[pos  epl,vel  epl, time  epl,mfl,mp  epl,nul,dv  epl,Th  epl]  = 
ep  maneuver (r  init  ep, r  final, t  epl,Isp  ep,Thr  ep,m  init  ep,  P  avail); 
while  time  epl (end)  <  t  epl 

r  init  ep  =  r  init  ep  -  1; 

[pos  chl,vel  chi, time  chl,mf  chl,dv  chl,Th  chi]  = 
chem  maneuver (r  init,r  init  ep, Isp  ch,m  init,nu,t  const, imp); 

r_init_ep  =  sqrt (pos_chl (1, end) A2+pos_chl (2, end) A2) ; 
m  init  ep  =  m  init  -  mf  chi; 

[pos  epl,vel  epl, time  epl,mfl,mp  epl,nul,dv  epl,Th  epl]  = 
ep  maneuver (r  init  ep,r  final, t  epl, Isp  ep,Thr  ep,m  init  ep, P  avail); 
end 


rx 

ry 

rx 

rY. 


_epl 

epl 

chi 

chi 


=  pos_epl ( 1 , : ) 
=  pos_epl (2 , : ) 
=  pos_chl ( 1 , : ) 
=  pos_chl (2 , : ) 


Ave  th  ce(kk)  = 

(Th  chl*time  chl*hr2sec+Th  epl*time  epl (end) )/ (time  epl (end) 
time  chl*hr2sec) ; 

r_ce(kk)  =  sqrt (pos_epl ( 1 , end) A2+pos_epl (2 , end) A2 ) ; 
mp  ce(kk)  =  mf  chi  +  mp  epl; 
dv  ce(kk)  =  dv_chl*km2m  +  dv  epl (end) ; 
t  ce(kk)  =  time  chi  +  time  epl (end) *sec2hr; 
kk  =  kk  +  1 ; 

end 


end 

figure (11) 

plot (rx_epl, ry_epl, ' , rx_chl, ry_chl, ' - 
x ' , rx  init,ry  init,rx  final, ry  final) 
title (' Chemical  -  Elecric  Profile') 

legend (' Electric  Segment Chemical  Segment Initial  Orbit Final 
Orbit'  ) 

ece_var  =  [  mp_ece;  dv_ece;  t_ece;  Ave_th_ece;  r_ece] ; 

ece2  var  =  [mp  ece2;  dv  ece2;  t  ece2;  Ave  th  ece2;  r  ece2]; 

cec_var  =  [  mp_cec;  dv_cec;  t_cec;  Ave_th_cec;  r_cec] ; 

ce_var  =  [  mp_ce;  dv_ce;  t_ce;  Ave_th_ce;  r_ce] ; 
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ec_var  =  [  mp_ec;  dv_ec;  t_ec;  Ave_th_ec;  r_ec] ; 


Appendix  C:  Mission  3  MATLAB  Code 

The  primary  file  used  to  model  the  variety  of  thrust  duration  for  the  plane  change 
maneuver  is  the  Miss3_orb_gravity.m  file.  This  file  is  all  inclusive  and  does  not  access 
any  other  files.  The  initial  file  developed  to  calculate  the  impulsive  burn  maneuvers  was 
Run_M3.m.  This  file  accesses  planechangelburn.m  and  planechange.m.  The  order  the 
scripts  are  listed  in  this  file  are: 

1)  Miss3_orb_gravity.m 


2)  Run_M3.m 

3)  planechange  lburn.m 


4)  planechange.m 


%This  program  calculates  a  plane  change  given  an  initial  orbital 
elements  and  propellant  system  properties 
%Written  by  Tiffany  Rexius  2010  -  2011 
clear;  clc; 

^*  ******************  *  *  *Cons tant s  *  **************************** 


mu 

=  3 . 98  6e5 ; 

% [kmA3/sA2 

g0 

=  9.81; 

% [m/sA2] 

r  earth 

=  637  8; 

%  [km] 

hr2sec 

=  60*60; 

% [sec/hr] 

sec2hr 

=  l/hr2sec; 

% [hr/ sec] 

deg2rad 

=  pi/180; 

% [rad/deg] 

rad2deg 

=  180/pi; 

% [deg/ rad] 

km2m 

=  1000; 

% [m/km] 

m2  km 

=  1/1000; 

% [km/m] 

9~'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

%*****************get  initial  Orbital  Elements*************** 


ecc 

=  0;  %[] 

Initi. 

RAAN 

=  0;  % [rad] 

Initi. 

argOper 

=  0;  %[rad] 

Initi. 

inc 

=  0;  % [rad] 

Initi. 

ecc2 

=  0; 

%[] 

RAAN  2 

=  0; 

% [rad] 

Node 

arg0per2 

=  0; 

% [rad] 

inc  f 

=  19*pi/180; 

% [rad] 

incl 

=  inc; 

% [rad] 

Final  Eccentricity 


Final  Inclination 
Initial  Inclination 
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nu  =  0  ; 


%[rad]  True  Anomaly 


P 

r 

P_init 
w  init 


6878; 

%  [km] 

Parameter 

p/  (l+ecc2*cos (nu) ) ; 

%  [km] 

Radius 

2*pi*sqrt (rA3/mu) ; 

% [ sec] 

Initial 

period  of  the  orbit 

2*pi/P  init; 

% [rad/ s] 

Initial 

orbital  rate 

dv_track  =  0; 
mp_tot  =  0; 


%[km/s]  Initial  delta  v 
%[km/s]  Initial  propellant  usage 


step 

nu^step 

t_step 

11 


=  1571; 

=  2*pi/step; 

=  nu  step/w  init; 

=  l;_ 


%[]  Number  of  steps  per  orbit 

%[rad]  True  anomaly  step 
% [sec]  Time  step 
% [ ]  Count 


%*********************gpacecraft  pr0perties* ************ ******** 


m  prop 

=  80; 

%  [kg] 

Available  Propellant 

m  init 

=  180; 

%  [kg] 

Initial  Spacecraft  Mass 

mass 

=  m  init; 

%  [kg] 

Spacecraft  Mass 

Th  ep 

=  0.11; 

%  [N] 

Electric  Propulsion  Thrust 

Isp_ep  =  600;  %[sec]  Electric  Propulsion  Isp 


%***********************gtate 

r  pqw  =  [r*cos (nu)  r*sin (nu) 

Vector 

v_pqw  =  sqrt (mu/p) * [-sin (nu) 

Vector 

r  pqw2  =  r  pqw; 

Vector 

v  pqw2  =  v  pqw; 

Vector 


Vector**************************** 

0]  ;  %[km]  Position 

(ecc2+cos (nu) )  0];  %[km/s]  Velocity 

%[km]  Transfer  Orbit  Position 

%[km/s]  Transfer  Orbit  Velocity 


v  i  j  k 
GERF 
r_i  j  k 
GERF 
v  i  j  k2 
r~ijk2 


v  pqw*R313 (RAAN, pi-inc, argOper) ;  %[km/s]  Velocity  Vector  in 

r  pqw*R313 (RAAN, pi-inc, argOper) ;  %[km]  Position  Vector  in 

v  pqw2 *R313 (RAAN2 , pi-inc  f,arg0per2); 
r  pqw2 *R313 (RAAN2 , pi-inc  f,arg0per2); 


%******************* *Transfer  orbit  properties******************* 


nu 

inc_tot 

nu_tol 

t_count 

nu  orb  track 

nu  track 

t_orb_track 

kk 


0;  %[rad]  True  Anomaly 

0;  %[rad]  Inclination  Change 

0.0003;  %[]  Tolerance 

0;  %[sec]  Time  tracker 

0;  %[]  Number  of  orbits  completed 

0;  %[rad]  True  anomaly  tracker 

0;  %[sec]  Time  in  orbit  tracker 

1;  %[]  Count 


th  time 
t  max 


=  32*60; 

=  200*24*3600; 


%[sec]  Thrust  duration  per  orbit 
%  [sec]  Time  Limit 


while  t  count  <=  t  max  %&&  inc  tot  <=  inc  f  %&&  mass  >=  m  init  -  m  prop 
%Define  gravity  vector  based  on  true  anomoaly 
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g_pqw 

g_ijk 

g  i  j  k2 


=  [-mu/rA2*cos (nu)  -mu/r A2*sin (nu)  0];  %[km/s] 
=  g  pqw*R313 (RAAN, pi-inc ( kk) , argOper ) ;  %[km/s] 
=  g  pqw*R313 (RAAN2 , pi-inc  f,arg0per2);  %[km/s] 


%Define  Final 
v  pqw  final 
r  pqw  final 
r  i j  k2 ( kk,  : ) 
v  i j  k2 ( kk,  : ) 


spacecraft  position 

=  sqrt (mu/p) *[ -sin (nu)  (ecc+cos  (nu) )  0]; 

=  [r*cos (nu)  r*sin (nu)  0]; 

=  r  pqw  final*R313 (RAAN2 , pi-inc  f,arg0per2); 
=  v  pqw  final*R313 (RAAN2 , pi-inc  f,arg0per2); 


% [km/s] 
%  [km] 

%  [km] 

% [km/s] 


%Define  dv  direction 

dv  diff  =  v_ijk2(kk,  :)  -  v  ijk(kk,  :);  %[km/s] 

dv  vec  =  dv  diff/mag(dv  diff);  %[km/s] 


o, 

o 

o, 

o 

o, 

o 

o, 

o 

o, 

o 

o, 

o 

o, 

o 


%Calulate  Final  mass 

mf  =  mass  -  t_step* (Th_ep/ (Isp_ep*g0) ) ;  %[kg] 

^* *************************  * Thrust  Continuously********************* 


dv 

v  i j  k ( kk+1 ,  : ) 
r_ij  k (kk+1,  : ) 
h  vec ( kk+1 , : ) 
inc ( kk+1 ) 


=  Th  ep*t  step/mass*m2km; 

=  v  ijk(kk, :)  +  t_step*g  ijk  +  dv*dv  vec; 

=  r_ijk(kk, :)  +  t_step*v_i j k ( kk, : ) ; 

=  cross (r_i j  k ( kk+1 ,  : ) , v_i j k ( kk+1 ,  : ) ) ; 

=  acos (abs (h^vec (kk+1, 3) ) /mag (h_vec (kk+1, : ) ) ) ; 


S'&ic'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

%  ^* ********* *Thrust  twice  beginning  at  the  crossover  points******** 

%  if  kk  <=  th  time*w  init/nu  step  %Thrusting 

%  dv  =  Th_ep*t  step/mass*m2km; 

%  v  ijk (kk+1,  :)  =  v  ijk(kk,  :)  +  t  step*g  ijk  +  dv*dv  vec; 


r_i j  k ( kk+1 ,  : ) 
h  vec ( kk+1 , : ) 
inc ( kk+1 ) 


=  r_ijk(kk,  :)  +  t_step*v_i j k ( kk,  : )  ; 

=  cross (r_i j  k ( kk+1 , : ) , v_i j k ( kk+1 ,  : ) )  ; 

=  acos (abs (h_vec (kk+1, 3) ) /mag (h_vec (kk+1, : ) ) ) ; 


elseif  t  orb  track  >=  P  init/2  &&  t  orb  track  <=  P  init/2  + 


th  time 


o,  g. 

o  o 

o,  o, 

o  o 

o,  a 
o  o 

o,  o, 

o  o 

o,  o, 

o  o 


dv 

v  i j  k ( kk+1 ,  ; ) 
r_i j  k ( kk+1 , : ) 
h  vec ( kk+1 , : ) 
inc ( kk+1 ) 


=  Th  ep*t  step/mass*m2km; 

=  v  ijk(kk, :)  +  t_step*g  ijk  +  dv*dv  vec; 
=  r_ijk(kk, :)  +  t_step*v_i j k ( kk, : ) ; 

=  cross (r_i j k ( kk+1 , : ) , v_i j k ( kk+1 , : ) ) ; 


acos (abs (h_vec (kk+1, 3) ) /mag (h_vec (kk+1, : ) ) ) ; 
%  else 


o, 

o 

Q, 

O 

O, 

O 

O, 

O 

O, 

O 

o, 

o 


dv 

v  i j  k ( kk+1 ,  : ) 
r_ij  k (kk+1, : ) 
h  vec ( kk+1 , : ) 
inc ( kk+1 ) 

end 


=  0; 

=  v_ijk(kk, :)  +  t_step*g_i j k; 

=  r_ijk(kk, :)  +  t_step*v_i j k ( kk, : ) ; 

=  cross (r_i j  k (kk,  : ) , v_i j k (kk,  : ) ) ; 

=  acos (abs (h^vec (kk+1, 3) ) /mag (h_vec (kk+1, : ) ) ) ; 


o, 

o 


★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 


o, 

o 


********** Thrust  twice 
if  kk  <=  th  time/2*w 
dv 

dv  check  = 

v  i j  k ( kk+1 ,  : )  = 

r_i j  k ( kk+1 ,  : ) 
h  vec ( kk+1 , : )  = 

inc ( kk+1 )  = 


centered  on  the  crossover  points************* 
init/nu  step  %Thrusting 
-Isp  ep*g0*log (mf /mass) *m2km; % 

Th  ep*t  step/mass*m2km; 

v  ijk(kk, :)  +  t  step*g  ijk  +  dv*dv  vec; 
r_ijk(kk, :)  +  t_step*v_i j k ( kk, : ) ; 

cross ( r_i j  k ( kk+1 ,  : ) , v_i j k ( kk+1 ,  : ) )  ; 
acos (abs (h_vec (kk+1, 3) ) /mag (h_vec (kk+1, : ) ) ) ; 


132 


o\°  o\° 


elseif  t  orb  track 
P  init/2  +  th  time/2 
dv 

v  i j  k ( kk+1 ,  : ) 
r_i  j  k  ( kk+1 ,  : ) 
h  vec ( kk+1 , : ) 
inc ( kk+1 ) 

elseif  t  orb  track 
dv 

v  i j  k ( kk+1 ,  : ) 
r_ij  k (kk+1, : ) 
h  vec ( kk+1 , : ) 
inc ( kk+1 ) 

else 


>=  P  init/2  -  th  time/2  &&  t  orb  track  <= 

=  -Isp  ep*gO*log (mf /mass) *m2km; 

=  v  ijk(kk, :)  +  t  step*g  ijk  +  dv*dv  vec; 

=  r_ijk(kk,  :)  +  t_step*v_i j k ( kk,  : )  ; 

=  cross ( r_i j  k ( kk+1 , : ) , v_i j k ( kk+1 ,  : ) ) ; 

=  acos (abs (h^vec (kk+1, 3) ) /mag (h_vec (kk+1, : ) ) ) ; 
>=  P  init  -  th  time/2 
=  -Isp  ep*gO*log (mf /mass) *m2km; 

=  v  ijk(kk,  :)  +  t  step*g  ijk  +  dv*dv  vec; 

=  r_ijk(kk, :)  +  t_step*v_i j k ( kk, : ) ; 

=  cross (r_i j  k ( kk+1 , : ) , v_i j k ( kk+1 ,  : ) )  ; 

=  acos (abs (h^vec (kk+1, 3) ) /mag (h_vec (kk+1, : ) ) ) ; 


dv 

v  i j  k ( kk+1 ,  : ) 
r_i j  k ( kk+1 ,  :  ) 
h  vec ( kk+1 , : ) 
inc ( kk+1 ) 

end 


=  0; 

=  v_ijk(kk, :)  +  t_step*g_i j k; 

=  r_ijk(kk, :)  +  t_step*v_i j k ( kk, : ) ; 

=  cross ( r_i j  k ( kk,  : ) , v_i j k ( kk,  : ) ) ; 

=  acos (abs (h^vec (kk+1, 3) ) /mag (h_vec (kk+1, : ) ) ) ; 


•k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


Update  position  in  transfer  orbit 

r  pqw  check  =  [r*cos (nu+nu  step)  r*sin (nu+nu  step)  0]; 

r  ijk  check ( kk+1 ,:  )  =  r  pqw  check*R313 (RAAN, pi-inc ( kk+1 ) , argOper ) 
v  pqw  check  =  sqrt (mu/p) * [-sin (nu+nu  step) 

(ecc+cos (nu+nu_step) )  0] ; 

v  ijk  check ( kk+1 ,:  )  =  v  pqw  check*R313 (RAAN, pi-inc ( kk+1 ), argOper ) 
h  vec_check  = 

cross (r  ijk  check ( kk+1 ,:), v  ijk  check ( kk+1 ,:)) ; 

inc  check (kk+1)  =  pi  -  acos (h  vec  check (3) /mag (h  vec  check)); 


%Update  state  vector  based  on  calculated  inclination.  This  causes 
the  crossover  point  not  to  shift. 


r  ijk(kk+l,:)  =  r  ijk  check ( kk+1 ,:) ; 

v  ijk(kk+l,:)  =  v  ijk  check ( kk+1 ,:) ; 


%*****************  *  Calculate 


and  track  dv  and  mass************** 


dv  vec2(kk, :)  =  dv*dv  vec; 

dv2  mag(kk)  =  mag(dv  vec2 (kk, :)); 

dv_track  =  dv  track  +  dv; 

mp  =  mass* (1-exp (-dv*km2m/ (Isp  ep*g0)));  %[kg] 

mp2  =  mass  -  mf; 

mp_tot  =  mp_tot  +  mp;  %[kg] 

mass  =  mass  -  mp;  %[kg] 


%Track  nu  each  orbit 
nu  orbit  =  t  step*w  init; 

if  kk  >  1 

nu  orb  track (kk)  =  nu  orb  track (kk-1)  +  nu  orbit; 

end 


t  orb  track  =  nu  orb  track(kk)/w  init; 
nu  =  nu  +  nu  step; 

nu  track  =  nu  track  +  nu  step; 
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t  count  =  nu  track/w  init; 
inc  tot  =  inc  check(kk); 
inc2  =  inc ' ; 
n_orbit  =  t_count/5677 . 5; 

nu  kk  =  abs (n  orbit  -  round (n  orbit)); 
if  t  count>  90*3600*24 


inc_90day 
dv_90day 
mp_90day 
t  90day 


=  inc (end) ; 

=  dv_track; 

=  mp_tot; 

=  t  count/3600/24; 


end 

if  abs (t_count  -  2*24*3600)  <  2; 
inc_2day 
dv_2day 
mp  2 day 
t_2day 
inc  2deg 
dv_2deg 
mp  2 deg 
t_2deg 

elseif  abs (t_count 
inc_10day 
dv_l Oday 
mp_l Oday 
t_10day 
inc  4deg 
dv_4deg 
mp  4 deg 
t_4deg 

elseif  abs (t_count 
(kk) <=0 .1048 

inc_20day 
dv_2  Oday 
mp  2 Oday 
t_20day 
inc_6deg 
dv_6deg 
mp_6deg 
t__6deg 

elseif  abs (t_count 
( kk) <=  0.1397 

inc_30days 
dv_3 Odays 
mp_30days 
t_30days 

inc_30days  = 
dv_30days  = 
mp_3 Odays  = 
t_8deg  = 

elseif  abs (t_count 
( kk) <=  0.1746 

inc_40days 
dv_4  Odays 
mp_4  Odays 
t  40days 


inc (end) ; 
dv_track; 
mp_tot; 

t_count/3600/24 ; 

=  inc (end) ; 

=  dv_track; 

=  mp_tot; 

=  t_count/3600/24; 

-  10*24*3600)  <  2; 
inc (end) ; 
dv_track; 
mp_tot; 

t_count/3600/2  4  ; 

=  inc (end)  ; 

=  dv_track; 

=  mp_tot; 

=  t_count/3600/24  ; 
20*24*3600)  <  2;  %inc(kk) 

inc (end) ; 
dv_track; 
mp_tot; 

t_count/3600/2  4  ; 

=  inc (end) ; 

=  dv_track; 

=  mp_tot; 

=  t_count/3600/24  ; 
30*24*3600)  <  2;  %inc(kk) 


inc (end) ; 
dv_track; 
mp_tot; 

t_count/3600/2  4  ; 

=  inc (end) ; 

=  dv_track; 

=  mp_tot; 

=  t_count/3600/24 ; 

40*24*3600)  <  2;  %inc(kk) 


inc (end) ; 
dv_track; 
mp_tot; 

t  count/3600/24; 


inc_40days  =  inc (end); 


>=  0.1047  && 


>=  0.1396  && 


> —  0.1745  && 
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dv_4 Odays  =  dv_track; 
mp_4 Odays  =  mp_tot; 
t  lOdeg 


t_count/3600/2  4 ; 
elseif  abs (t_count  -  50*24*3600)  <  2; 
inc ( kk) <=  0.2095 

inc (end) ; 
dv_track; 
mp_tot; 

t_count/3600/24 ; 
inc (end) ; 
dv_track; 
mp_tot; 

t  count/3600/24; 

2; 


inc_50days 
dv_50days 
mp_50days 
t_50days 
inc  12deg 
dv  12deg 
mp  12 deg 
t  12deg 


else 
inc ( kk) < 


if  abs (t_count  -  60*24*3600)  < 
=  0.2444 


inc_60days  =  inc (end) ; 
dv_60days  =  dv_track; 
mp_60days  =  mp_tot; 
t_60days  =  t_count/3600/24 ; 
inc  14deg  =  inc (end) ; 
dv_14deg  =  dv  track; 

=  mp_tot; 

=  t_count/3600/24 ; 
elseif  abs (t_count  -  70*24*3600)  < 
inc(kk)<=  0.2619 

inc (end) ; 
dv_track; 
mp_tot; 

t_count/3600/24 ; 
inc (end) ; 
dv  track; 
mp_tot; 

t_count/3600/24 ; 
elseif  abs (t_count  -  80*24*3600)  < 
inc_80days  =  inc (end) ; 

=  dv_track; 

=  mp_tot; 

=  t_count/3600/24 ; 
elseif  abs (t_count  -  90*24*3600)  < 
inc_90days  =  inc (end) ; 

dv_track; 
mp_tot; 

t_count/3600/2  4  ; 
-  100*24*3600)  < 


mp  14 deg 
t  14deg 


inc_7  Odays 
dv_7  Odays 
mp_7  Odays 
t_7  Odays 
inc  15deg 
dv_15deg 
mp  15deg 
t  15deg 


dv_8 Odays 
mp_8 Odays 
t_80days 


dv_9 Odays  = 

mp_90days  = 
t_90days  = 
elseif  abs (t  count 


inc  lOOdays  =  inc (end); 


dv_10 Odays 
mp_10 Odays 
t_100days 

elseif  abs (t_count 
inc_ll Odays 
dv_ll Odays 
mp_ll Odays 
t_ll Odays 

elseif  abs (t  count 


dv_track; 

mp_tot; 

t_count/3600/2  4  ; 

-  110*24*3600)  <  2; 
inc (end) ; 
dv_track; 
mp_tot; 

t_count/3600/24 ; 

-  120*24*3600)  <  2; 


sine ( kk) 


sine ( kk) 


;inc  ( kk) 


inc_120days  =  inc (end) ; 
dv  120days  =  dv  track; 


>=  0.2094  && 


>=  0.2443  && 


>=  0.2618  && 
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mp  120days  =  mp  tot; 

t_120days  =  t_count/3600/24 ; 

end 


kk  =  kk  +  1 ; 
if  kk  ==  step  +  1 

dv2  mag  track  =  dv2  mag'; 
r_i j  k ( 1 ,  : )  =  r_ijk (kk-1, : ) ; 
v  ijk(l,:)  =  v  ijk(kk-l,:); 
inc(l)  =  inc(kk-l); 

kk  =  1  ; 

nu  orb  track (kk)  =  0; 

nu  =  nu  -  2*pi; 

end 


end 

plot 3 (r_i j  k_check ( : , 1 ) , r_i j k_check ( : , 2 ) 
* ' , r_i j  k2 ( : , 1)  , r_ijk2 ( : , 2) , r_ijk2 ( :  ,  3) ) 


r  ijk  check 


3)  , 


Run  M3.m  file 


%This  program  runs  Reference  Mission  3,  which  is  a  15  degree  plane 

change 

%in  90  days. 

%Currently  this  is  modeled  using  equations  from  "Fundamentals  of 
%Astrodynamics"  by  Bate,  Mueller,  White. 


clc; 

clear; 

%****************Vehicle  information************************* 


m  init 
m  prop 
P  avail 
Isp_ep 
Thrust  ep 
Isp  chem 
imp 

&.*★***★*★ 

o 

9-'k'k'k'k'k'k'k'k 

o 

mu  - 

gO 

r  earth  = 
hr2sec  = 
sec2hr  = 
deg2rad  = 
rad2deg  = 
km2m  = 
m2  km  = 

9~'k'k'k'k'k'k'k'k 

o 

S'-k'k'k'k'k'k'k'k't 

o 

t_const  = 
incl  = 
inc2  = 
r  init  = 


[kg] 

[kg] 

[W] 

[s] 

[N] 

[s] 

%[sec]  This  represents 


=  180; 

=  80; 

=  1000; 

=  600; 

=  0.11; 

=  235; 

=  20*60;  %  [sec]  This  represents  a  20  min  burn  arc 
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

************  *  *Cons tant s  *  **************************** 
3 . 98  6e5 ;  %[kmA3/sA2] 

9.81;  % [m/s A2 ] 

6378;  % [km] 

60*60;  % [sec/hr] 

l/hr2sec;  % [hr/sec] 

pi/180;  % [rad/deg] 

180/pi;  % [deg/rad] 

1000;  % [m/km] 

1/1000;  % [km/m] 


90*24*hr2sec; 

0*deg2rad; 

15*deg2rad; 

500  +  r  earth; 


★★★★★★★★★★★★★★★★★★ 

★  ★★★★★★★ 

[  sec] 

Time 

Limit 

[rad] 

Plane 

Change 

Angle 

[rad] 

Plane 

Change 

Angle 

[km] 
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ecc  =  0 ; 

RAAN  =  0 ; 

Ascending  Node 
argOper  =  0; 
p  =  r  init; 

a  init  =  r  init; 

P  =  2*pi*sqrt(a  initA3/mu) ; 

w  init  =  2  *pi/P; 

V  =  sqrt (mu/r  init); 

dv  =  2*V*sin (inc2/2) ; 


%[--]  Circular  orbit 

%[rad]  Right  Ascension  of  the 

%[rad]  Argument  of  Periapsis 
%[km]  Periapsis 
%[km]  Circular  orbit 
% [sec] 

% [rad/ s] 

% [km/s] 

% [km/s] 


[TP2 , TP4 , TP6]  = 

planechange  lburn (m  init,Isp  ep, Thrust  ep,  p,  ecc,  incl , inc2 , RAAN, argOper, 
t_const, m_prop) ; 


[Th_profl,  Th_prof2,  Th_prof3,  Th_prof4,  Th_prof5,  Th_prof6]  = 
planechange (m  init, Isp  ep, Thrust  ep, Isp  chem, p, ecc, incl , inc2 , RAAN, argOp 
er, t_const, m_prop) ; 


inc  epl 
t_epl 
mp  epl 
dv_epl 


Th_prof 1 (1) ; 
Th_prof 1 (2) ; 
Th_prof 1 (3) ; 
Th_prof 1 (4) ; 


inc  ep2 
t_ep2 
mp  ep2 
dv  ep2 


Th_prof 2 (1) ; 
Th  prof2 (2 ) ; 
Th_prof2 (3) ; 
Th_prof 2 (4) ; 


inc_ep3 

t_ep3 

mp_ep3 

dv_ep3 


Th_prof 3 (1) ; 
Th_prof 3 (2 ) ; 
Th_prof 3 (3 ) ; 
Th_prof 3 (4) ; 


inc  ep4 
t_ep4 
mp  ep4 
dv  ep4 


Th_prof 4 (1) ; 
Th_prof 4 (2) ; 
Th_prof 4 (3) ; 
Th_prof 4 (4) ; 


inc_ep5 

t_ep5 

mp_ep5 

dv_ep5 


Th_prof 5 ( 1 )  ; 
Th_prof 5 (2  )  ; 
Th_prof5 (3) ; 
Th_prof5 (4) ; 


inc_ep6 

t_ep6 

mp_ep6 

dv_ep6 


Th_prof 6 (1) ; 
Th_prof 6 (2 ) ; 
Th_prof 6 (3) ; 
Th_prof6 (4) ; 


mp  chem 
mass_ep 


=  m  init  -  m  init*exp (-dv*km2m/Isp  chem/gO);  % [ kg ] 
=  m  init  -  m  init*exp (-dv*km2m/Isp  ep/gO);  %[kg] 


burn  time  =  imp* 2; 

Th  ch  =  m  init*dv*km2m/ (burn  time);  % [N] 
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Th  ep 

=  m  init*dv*km2m/ (t  const/2);  % [N] 

fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 
fprintf ( 

********* Resuits  for  Mission  3***********\n\n ' ) 
*************chemical  System*************\n . ) 

Delta  V  (m/s)  =  %6 . 2f \n ' , dv*km2m) 

Chem  Propellant  Mass  (kg)  =  %6.2f\n',mp  chem) 

Average  Thrust  Chem  (N)  =  %6.2f\n',Th  ch) 

EP  Propellant  Mass  (kg)  =  %6 . 2f \n ' , mass  ep) 

*****************************************\n>) 

*************Ef ectric  System* ************ \n 1 ) 

**Thrust  Profile  1:  2  -  15  min  Burns*****\n ' ) 

Delta  V  (m/s)  =  %6.2f\n',dv  epl*km2m) 

Elec  Propellant  Mass  (kg)  =  %6.2f\n',mp  epl) 

Inclination  Change  (deg)  =  %6.2f\n',inc  epl*rad2deg) 

Trip  Time  (days)  =  %6.2f\n',t  epl*sec2hr/24 ) 

*****************************************\n>) 

**Thrust  Profile  2:  1-15  min  Burn* *  *  *  *  * \n ' ) 

Delta  V  (m/s)  =  %6.2f\n',dv  ep2*km2m) 

Elec  Propellant  Mass  (kg)  =  %6.2f\n',mp  ep2) 

Inclination  Change  (deg)  =  %6.2f\n',inc  ep2*rad2deg) 

Trip  Time  (days)  =  %6.2f\n',t  ep2*sec2hr/24 ) 

*****************************************\n') 

**Thrust  Profile  4:  15-1  min  Burns******\n ' ) 

Delta  V  (m/s)  =  %6.2f\n',dv  ep4*km2m) 

Elec  Propellant  Mass  (kg)  =  %6.2f\n',mp  ep4) 

Inclination  Change  (deg)  =  %6.2f\n',inc  ep4*rad2deg) 

Trip  Time  (days)  =  %6.2f\n',t  ep4*sec2hr/24) 

*****************************************\n>) 

*Thrust  Profile  5:  Continous  1-min  Burns*\n') 

Delta  V  (m/s)  =  %6.2f\n',dv  ep5*km2m) 

Elec  Propellant  Mass  (kg)  =  %6.2f\n',mp  ep5) 

Inclination  Change  (deg)  =  %6.2f\n',inc  ep5*rad2deg) 

Trip  Time  (days)  =  %6.2f\n',t  ep5*sec2hr/24 ) 

*****************************************\n') 

**Thrust  Profile  6:  15-1  min  Burns  nu=0**\n') 

Delta  V  (m/s)  =  %6.2f\n',dv  ep6*km2m) 

Elec  Propellant  Mass  (kg)  =  %6.2f\n',mp  ep6) 

Inclination  Change  (deg)  =  %6.2f\n',inc  ep6*rad2deg) 

Trip  Time  (days)  =  %6.2f\n',t  ep6*sec2hr/24 ) 

*****************************************\n>) 
*************Combined  System*************\n . ) 

**Thrust  Profile  3:  2  -  15  min  Burns*****\n ' ) 

*  *  *  * *Followed  by  Chemical  Manuever* ****** \n ' ) 

Delta  V  (m/s)  =  %6.2f\n',dv  ep3*km2m) 

Elec  Propellant  Mass  (kg)  =  %6.2f\n',mp  ep3) 

Inclination  Change  (deg)  =  %6.2f\n',inc  ep3*rad2deg) 

Trip  Time  (days)  =  %6.2f\n',t  ep3*sec2hr/24 ) 

Planechange  lbum.m  file 

function  [Th  prof2  track, Th  prof4  track, Th  prof 6  track]  = 
planechange  lburn (m  init, Isp  ep, Thrust  ep, p, ecc, incl , inc2 , RAAN, argOper, 
t_const, m_prop) 
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%**********************Qoristants ***************************** 


mu 

gO 

r  earth 

hr2sec 

sec2hr 

deg2rad 

rad2deg 

km2m 

m2  km 


3 . 986e5; 

9  .  8  1  ; 

637  8; 
60*60; 
l/hr2sec; 
pi / 180; 
180/pi; 
1000; 
1/1000; 


[kmA3/sA2] 
[m/ sA2 ] 
[km] 

[  sec/hr] 
[hr/ sec] 
[rad/ deg] 
[deg/rad] 
[m/km] 
[km/m] 


Q-'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

nu  =  0  ; 

r  =  p/ ( l+ecc*cos (nu) ) ; 

P  init  =  2*pi*sqrt (rA3/mu) ; 

w  init  =  2*pi/P  init; 
kk  =  1; 

PP  =  1  ; 

t  min  range  =  4/60*hr2sec; 
t  max  range  =  25/60*hr2sec; 

%This  saves  the  orbit  in  the  Geocentric  Equitorial  Frame  for  one 
rotation  for  the  initial  and  final  orbit.  This  is  used  to  determine 


necessary  thrust 

:  vector. 

nu  =  0:0. 1:2* 

pi+0 . 1 

[r  i  j  k  v  i  j  k] 

- 

pqw2i j  k (p, ecc, incl , RAAN 

r  ijkl (kk, : ) 

= 

r_i j  k; 

v  i j  kl ( kk,  : ) 

— 

v_i j  k; 

[r  i  j  k  v  i  j  k] 

= 

pqw2i j  k(p,ecc,inc2, RAAN 

r  i j  k2 ( kk,  : ) 

= 

r_i j  k; 

v  i j  k2 ( kk,  : ) 

= 

v_i j  k; 

if  nu  <=  pi+0 

.1 

=  r_ijk; 
=  v_ijk; 

=  r_ijk; 
=  v_ijk; 


r  i j  k2a ( kk,  : 
v  i j  k2a ( kk,  : 

else 

r_i j  k2b (pp,  : 
v_i j  k2b (pp,  : 

pp  =  pp  +  1; 

end 

kk  =  kk+1; 

end 

h2  =  cross ( r_ij k2 ( 1 ,:), v_ij k2 ( 1 ,:)) ; 
inc2  =  abs (pi-  acos (h2 (3) /mag (h2) ) ) ; 


9~'k'k’k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

%***************Thrus1-  scheme  2:  1  -  15  min  burn  at  0**************** 

9-  ~k  -k  ~k  ~k  -k  ~k  9c  9c  9c  9c  9r  9c  9r  9c  9r  9c  9r  9c  9r  9c  9r  9c  9c  9c  9r  9c  9r  9c  9r  9c  9c  9c  9r  9c  9c  9c  9r  9c  9c  9c  9r  9r  9c  9r  9c  9c  9c  9c  9c  9c  9c  9r  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c 
o 

%**********************Re_-j_n-j_t-j_al;j_ze  variables*********************** 
mass  =  m  init;  %[kg] 

t_max  =  t_const;  %[sec] 

jj  =  1;  %[  — ] 

mm  =  1 ;  % [ - - ] 
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time  =  0; 

v_ijk3(l,:)  =  v_ijkl(l,:) 

r_i j  k3  (1 ,  : )  =  r_i j kl  (1,  : ) 

dv_track  =  0; 

inc  =  0  ; 

mp_tot  =  0; 


% [sec] 

% [km/ s] 

% [km/ s] 

% [ km/ s ] 

% [rad] 

%  [kg] 

9 ********************************************************************* 
o 

for  t  step  =  t  min  range : l/60*hr2sec : t  max  range 

while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 

dv  =  Thrust  ep*t  step/mass*m2km;  %[km/s] 

dv  track  =  dv  track  +  dv;  %[km/s] 

mp  =  mass* (1-exp (-dv*km2m/ (Isp  ep*g0)));  %[kg] 

mp_tot  =  mp_tot  +  mp;  %[kg] 

mass  =  mass  -  mp;  %[kg] 


nu  =  w  init*time; 

v_pqw2a  =  sqrt (mu/p) *[ -sin (nu)  (ecc+cos  (nu) )  0]; 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
[r_i j k3 , v_i j k3 ]  =  updaterv (r_i j k3, v_i j k3, v_i j k2a, dv, t_step) ; 

%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross ( r_ij k3 , v_ij k3 ) ; 
inc  =  abs (pi  -  acos (h3 ( 3 ) /mag (h3 ) ) ) ; 


[RAAN,  argOperx,  eccx,  incx]  =  orbparamfr  ijk3,v  ijk3); 
inc  =  pi  -  incx; 

%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3  =  r  i j k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

v  pqw3  =  v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 


time 


%Calculate  orbit  from  0  to  2pi  after  thrust 
for  nu  =  0 : 0 . 1 : 2 *pi+0 . 1 

r_pqw(jj,:)  =  [mag ( r_pqw3 ) *cos (nu)  mag (r_pqw3) *sin (nu)  0]; 
v_pqw(jj,:)  =  sqrt (mu/p) *[ -sin (nu)  (ecc+cos (nu) )  0]; 

jj  =  jj  +  i; 

end 


j  j 

r_i j  k3 
v  i  j  k3 
time 


=  1; 

=  r  pqw*R313 (RAAN, pi-inc, argOper) ; 
=  v  pqw*R313 (RAAN, pi-inc, argOper) ; 
=  time  +  P  init; 


%  [km] 

% [km/s] 

% [ sec] Update 


end 

Th  prof2  track (mm, 
orbit  param(mm, :) 
mm 
time 
inc 

mp_tot 
dv  track 
mass 


)  = 


v_i j  k3 ( 1 , 
r  i  j  k3  (1 , 


+  1 ; 


mm 

0; 

0; 

0; 

0; 

m  init; 
v  i j  kl  ( 1 , 
r^ijkl (1, 


[inc,  time,  mp_tot, dv_track] ; 
[RAAN,  argOper,  eccx, inc] ; 


: )  ;  % [km/s] 

: ) ;  % [km/ s] 
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k  k  k  k  k 


end 


Q'k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k 
o 

%****************Thrust-  scheme  4:  15 

Q'k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k 
o 


kkkkkkkkkkkkkkkkkkkkkkkkkk 

-  1  min  burns************* 

kkkkkkkkkkkkkkkkkkkkkkkkkk 


k 

k 

k 


k  k  k  k  k 
k  k  k  k  k 


mass 

= 

m  init; 

t  step  min 

- 

1*60; 

t  max 

= 

t  const; 

j  j 

= 

1; 

mm 

= 

1; 

time 

= 

0; 

v_ijk3 (1, : ) 

= 

v_ijkl (1,  : ) ; 

r_ijk3 (1,  : ) 

= 

r_ijkl (1, : ) ; 

v  pqw2f 

- 

sqrt (mu/p) * [ 

(ecc+cos (w 

init*t  step  min 

v  ijk2f 

= 

v  pqw2f*R313 

dv  track 

- 

0; 

inc 

= 

0; 

mp  tot 

- 

0; 

Q-k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k  k 
o 


%  [kg] 

%  [ sec] 
%  [ sec] 


%  [ sec] 

% [km/s] 

% [km/s] 

-sin(w  init*t  step  min) 

))  0]  ; 

(RAAN, pi-inc, argOper) ; 

% [km/s] 

% [rad] 

%  [kg] 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


for  t  step  =  t  min  range : 1 / 60*hr2sec : t  max  range 

while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 
for  time2  =  t  step  min:t  step  min:t  step 

dv  =  Thrust  ep*t  step  min/mass*m2km;  % 

dv  track  =  dv  track  +  dv;  % 

mp  =  mass* (1-exp (-dv*km2m/ (Isp_ep*gO) )) ;  % 

mp  tot  =  mp  tot  +  mp;  % 

mass  =  mass  -  mp;  % 


[km/s] 
[ km/ s ] 
[kg] 
[kg] 
[kg] 


orbit 

dv, time2 ) ; 


%Calulate  updated  thrust  vector  between  transfer  &  final 
[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  ijk2f,~ 


orbit 


0]  ; 

(ecc+cos ( 


%Calculate  updated  inclination  between  transfer  &  final 

h3  =  cross (r_ij k3 , v_ij k3 ) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ;  %[rad] 

%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3a  =  r  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

nua  =  w  init*time2;  %[rad] 

r_pqw3(jj,:)  =  [mag (r_pqw3a) *cos (nua)  mag (r_pqw3a) *sin (nua) 

v_pqw3(jj,:)  =  sqrt (mu/mag (r_pqw3a) )* [-sin (nua) 
nua) )  0] ; 

r_ijk3  =  r_pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km] 
v  ijk3  =  v  pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km/s] 


%Calc  final  orbit  velocity  to  get  correct  thrust  vector 
v_pqw2f  =  sqrt (mu/p) *[ -sin (nua)  (ecc+cos (nua) )  0]; 
v  ijk2f  =  v  pqw2f*R313 (RAAN, pi-inc, argOper); 


if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc,  argOper)  ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper); 
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end 

jj  : 


=  jj  +  i; 

end 

jj  =  jj  -  i; 


0]  ; 


end 


%Calculate  orbit  after  thrust 


for  nu  =  nua : 0 . 1 : 

:  (2*pi+nua) 

r_pqw3 ( j  j ,  : ) 

=  [mag (r  pqw3a) *cos (nu) 

mag (r  pqw3a 

v_pqw3 ( j  j ,  : ) 

=  sqrt (mu/p) *[ -sin (nu) 

(ecc+cos (nu) 

j  j 

=  jj  +  i; 

end 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper); 


j  j 

=  1; 

time 

end 

=  time  +  P 

init;  %[sec] 

Th  prof4 

track (mm, : )  =  [ 

’inc,  time,  mp 

mm 

=  mm  +  1 ; 

time 

=  0; 

inc 

=  0; 

mp  tot 

=  0; 

dv  track 

=  0; 

mass 

=  m  init; 

v  i  j  k3  (1 , 

: )  =  v  ijkl (1, : 

)  ;  % [km/s] 

r  i  j  k3  (1 , 

:)  =  r_ijkl (1, : 

)  ;  % [km/s] 

Update 
tot, dv 


time 
track] ; 


*sin (nu) 
0]  ; 


o 

9~~k  ~k  -k  ~k  ~k  ~k  -k 
o 

S-******* 

o 

-k  -k  -k  -k  -k 
o 


kkkkkkkkkkkkkkkkkkkkkkkkkkk 

*********Thrust  Scheme  6:  1 
****** *Centered  around  cros 

'kk'k'k'kk'k'k'kk'k'k'kk'k'k'kk'k'k'kk'k'k'kk'k 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

5-1  min  burns******************* 
sover  points*  *  ******************** 

-k'kk'k'k'kk'k'k'kk'k'k'kk'k'k'kk'kk'kk'k'k'kk'kk'kk'k'k'k 


mass 

=  m  init; 

%  [kg] 

t  step  min 

=  075*60; 

% [sec] 

t  max 

=  t  const; 

% [ sec] 

j  j 

=  1; 

%[  — ] 

nn 

=  1; 

%[  — ] 

time 

=  0; 

%  [ sec] 

v_ijk3 (1, : ) 

=  v_i j  kl (1,  : ) ; 

% [ km/ s 

r_ijk3 (1,  ; ) 

=  r  ijkl  (1,  : ) ; 

% [ km/ s 

dv  track 

=  0; 

% [ km/ s 

inc 

=  0; 

% [rad] 

mp  tot 

=  0; 

%  [kg] 

O'*  ~k  k  ~k  k  ~k  k  ~k  ~k  ~k  ~k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k  ~k  k 
o 


] 

] 

1 


kkkkkkkkkkkkkkkkkkkkkkkkk 


for  t  step  =  t  min  range : 1 / 60*hr2sec : t  max  range 

while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 


time2  =  t 

step  min:t  step  min: (t  step/2) 

dv 

=  Thrust  ep*t  step  min/mass*m2km; 

% [km/s 

dv  track 

=  dv  track  +  dv; 

% [km/ s 

mp 

=  mass* (1-exp (-dv*km2m/ (Isp  ep*g0)) 

);  % [kg] 

mp  tot 

=  mp  tot  +  mp; 

%  [kg] 

mass 

=  mass  -  mp; 

%  [kg] 
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%Calulate  updated  thrust  vector  between  transfer  &  final 

orbit 

if  time2  >  0 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  ijk2f,- 

dv, time2 ) ; 

else 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  ijk2,~ 

dv, time2 ) ; 

end 


%Calculate  updated  inclination  between  transfer  &  final  orbit 

h3  =  cross (r_ij k3 , v_ij k3 ) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ;  %[rad] 


%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3a  =  r  i j k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

nua  =  w  init*time2;  %[rad] 

r_pqw3(jj,:)  =  [mag ( r_pqw3a) *cos (nua)  mag (r_pqw3a) *sin (nua) 


v_pqw3(jj,:)  =  sqrt (mu/mag ( r_pqw3a) )*[ -sin (nua) 

(ecc+cos (nua) )  0] ; 

r_ijk3  =  r_pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km] 
v  ijk3  =  v  pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km/s] 


%Calc  final  orbit  velocity  to  get  correct  thrust  vector 
v_pqw2f  =  sqrt (mu/p) * [-sin (nua)  (ecc+cos (nua) )  0]; 
v  ijk2f  =  v  pqw2f*R313 (RAAN, pi-inc, argOper)  ; 


if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

end 

jj  =  jj  +  i; 

end 

jj  =  jj  -  i; 


%Calculate  orbit  after  thrust 
for  nu  =  nua:0.01: (2*pi-nua) 

r_pqw3(jj,:)  =  [mag (r_pqw3a) *cos (nu)  mag (r_pqw3a) *sin (nu) 
v_pqw3(jj,:)  =  sqrt (mu/p) * [-sin (nu)  (ecc+cos (nu) )  0]  ; 

jj  =  jj  +  i; 

end 

nub  =  nu; 

time2  =  nub/w  init; 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper); 


for 


time2  = 
dv 

dv  track 
mp 

mp_tot 

mass 


(time2) :t  step  min: (time2+t  step/2) 

=  Thrust  ep*t  step  min/mass*m2km; 

=  dv  track  +  dv; 

=  mass* (1-exp (-dv*km2m/ (Isp  ep*g0))); 
=  mp  tot  +  mp; 

=  mass  -  mp; 


% [km/s] 
% [km/s] 
%  [kg] 

%  [kg] 

%  [kg] 
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%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  i j k2f , dv, time2 ) ; 

%Calculate  updated  inclination  between  transfer  &  final  orbit 

h3  =  cross (r_ij k3, v_ij k3) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ;  %[rad] 


0]  ; 


%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3a  =  r  ij k3*R313 (argOper, pi-inc,  RAAN) ; 

nua  =  w  init*time2; 

r  pqw3(jj,:)  =  [mag(r  pqw3a) *cos (nua)  mag (r  pqw3a) 


%  [km] 

% [rad] 
*sin (nua) 


v_pqw3(jj,:)  =  sqrt (mu/mag (r_pqw3a) )* [-sin (nua) 

(ecc+cos (nua) )  0] ; 

r_ijk3  =  r_pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km] 
v  ijk3  =  v  pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper)  ;  %[km/s] 


%Calc  final  orbit  velocity  is  to  get  correct  thrust  vector 
v_pqw2f  =  sqrt (mu/p) * [-sin (nub)  (ecc+cos (nub) )  0]; 
v  ijk2f  =  v  pqw2f*R313 (RAAN, pi-inc, argOper) ; 


if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

end 


jj  =  jj  +  i; 


end 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ;  %[km] 

v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ;  %[km] 

jj  =  i;  %[— ] 

time  =  time  +  P  init;  %[sec]  Update  time 


end 

Th_prof 6 
nn 

time 
inc 

mp_tot 
dv  track 
mass 

v  i j  k3  ( 1 
r~ijk3  (1 

end 

t_plot  = 
linspace(t  min 


track (nn, : )  = 
=  nn  +  1 ; 

=  0; 

=  0; 

=  0; 

=  0; 

=  m  init; 

: )  =  v_ijkl (1 
: )  =  r_i j  kl  (1 


range, t  max 


[inc,  time,  mp_tot, dv_track] ; 


: )  ;  % [km/s] 

: ) ;  % [km/s] 


range,  length (Th_prof 6_track ( : , 1 ) ) ) ; 


figure  ( 1 ) 
subplot  (3,1,1) 

plot ( t_plot/ 60 , Th_prof 2_track ( : , 1 ) *rad2deg, ' x ' , t_plot/ 60 , Th_prof 4_track 
( :  ,  1 ) *rad2deg,  ' A ' , t_plot/ 60 , Th_prof 6_track ( : , 1 ) *rad2deg,  ' > ' ) 
legend (' 1  Burn  at  nu  =  O', 'X  incremental  Burns', '1  Burn  centered  at  \nu 
=  O') 

ylabel ( ' Inclination  Change  (deg) ' ) 
xlabel (' Thrust  Duration  (min) ') 
subplot (3,1,2) 
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plot (t_plot/ 60, Th_prof 2_track ( : , 3) , '  x '  , t_plot/ 60, Th_prof 4_track ( : , 3) , ' A 
' , t_plot/60, Th_prof 6_track ( : , 3) , '  > '  ) 

legend (' 1  Burn  at  nu  =  0','X  incremental  Burns 1  Burn  centered  at  \nu 
=  O') 

ylabel (' Propellant  Mass  (kg))') 
xlabel (' Thrust  Duration  (min) ') 
subplot (3,1,3) 

plot(Th  prof2  track (:, 1 ) *rad2deg, Th  prof2  track ( : , 4 ) *km2m, ' x ' , Th  prof4 
track (:, 1 ) *rad2deg, Th  prof4  track ( : , 4 ) *km2m, ' A ' , Th  prof6  track (:, 1 ) *rad 
2deg,Th  prof6  track ( : , 4 ) *km2m, ' > ' ) 

legend (' 1  Burn  at  nu  =  0','X  incremental  Burns ',' 1  Burn  centered  at  \nu 

=  O') 

xlabel ( ' Inclination  Change  (deg) ' ) 
ylabel ( ' Delta  V  (m/s) ' ) 


Planechange.m  file 


function  [Th_profl,  Th_prof2,  Th_prof 3 , Th_prof 4  ,  Th_prof5,  Th_prof6]  = 
planechange (m  init,  Isp  ep.  Thrust  ep, Isp  chem, p, ecc, incl , inc2 , RAAN, argOp 
er, t_const, m_prop) 


%**********************constants***************************** 


mu 

=  3 . 98  6e5 ; 

% [kmA3/sA2] 

g0 

=  9.81; 

% [m/sA2] 

r  earth 

=  6378; 

%  [km] 

hr2sec 

=  60*60; 

%  [ sec/hr] 

sec2hr 

=  1 /hr2sec; 

% [hr/ sec] 

deg2rad 

=  pi/180; 

% [rad/deg] 

rad2deg 

=  180/pi; 

% [deg/ rad] 

km2m 

=  1000; 

% [m/km] 

m2  km 

=  1/1000; 

% [km/m] 

9''k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

nu  = 

0; 

r  = 

p/ (l+ecc*cos (nu) ) ; 

P  init  = 

2*pi*sqrt (r 

,A3/mu)  ; 

w  init  = 

2*pi/P  init 

r 

kk 

1; 

PP 

1; 

%This  saves  the  orbit  in  the  Geocentric  Equitorial  Frame  for  one 
rotation 

%for  the  initial  and  final  orbit.  This  is  used  to  determine  the 
%necessary  thrust  vector, 
for  nu  =  0 : 0 . 1 : 2 *pi+0 . 1 

[r  ijk  v  ijk]  =  pqw2ij k (p, ecc, incl ,  RAAN,  argOper,  nu)  ; 
r  ijkl(kk,  :)  =  r  ijk; 

v  ijkl(kk,  :)  =  v  ijk; 

[r  ijk  v  ijk]  =  pqw2ij k (p, ecc, inc2 , RAAN, argOper, nu) ; 
r  ijk2(kk,  :)  =  r  ijk; 

v  ijk2(kk,  :)  =  v  ijk; 

if  nu  <=  pi+0 . 1 

r  ijk2a(kk, :)  =  r  ijk; 
v  ijk2a(kk,:)  =  v  ijk; 
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else 


r  i j  k2b 

>  (PP, 

:)  = 

r 

_i  j  k; 

v  i j  k2b 

>  (PP, 

:)  = 

V 

_i  j  k; 

PP  =  PF 

>  +  1 

r 

end 

kk 

=  kk+1; 

end 

for 

nu 

=  0:0.1: 

pi  +  0 

.1 

[r 

ijk  v  i  j 

k]  = 

pqw2 

ijk 

:  (p, ecc 

r  . 

i j  k2a ( kk. 

:) 

=  r  i 

jk; 

v  . 

i j  k2a ( kk. 

:) 

=  v  i 

jk; 

kk 

= 

kk+1 

r 

end 

h2 

= 

cross ( r 

i  j  k2 

(1,  :) 

,  v 

i  j  k2  ( 1 

inc2 

= 

abs  (pi- 

acos 

(h2  (3 

) /mag (h2 ) 

hi 

= 

cross  (r 

i  j  kl 

(1,  :) 

,  v 

i  j  kl  (1 

incl 

= 

abs (pi  - 

■  aco 

s  (hi  ( 

3) /mag (hi 

O'*  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k 
o 

%***********Thrust  scheme  1:2- 

9~-k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k 
o 

o 


•k'k'k'k-k'k-k'k-k'k'k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k'k'k'k'k'k'k'k'k'k'k 

15  min  burns  at  0  and  pi************ 

■k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k-k'k'k'k 
■ k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


mass 
t_step 
t  max 
kk 

j  j 

time 

v_ijk3 (1, : ) 
r_i j  k3  (1,  : ) 
dv  track 
inc 

inc_tot 

mp_tot 


m  init; 

O, 

O 

[kg] 

15/ 60*hr2sec; 

O, 

O 

[  sec] 

t  const; 

O, 

O 

[  sec] 

1; 

Q. 

O 

[  — ] 

1; 

O, 

O 

[  — ] 

0; 

O, 

O 

[  sec] 

v_i j  kl (1,  : ) ; 

O, 

O 

[km/s 

r  ijkl  (1,  : ) ; 

O, 

O 

[km/s 

0; 

Q. 

O 

[km/s 

0; 

O, 

O 

[rad] 

0; 

O, 

O 

[rad] 

0; 

O, 

O 

[kg] 

%Calulate  initial  thrust 
v  ijk  diff  =  [v  ijkl(l,l) 
v  i  j  kl  ( 1 , 2  ) 
v_i j  kl (1,3) 


vector  between  initial 

-  v_ijk2 (1,1),... 

-  v  i j  k2 (1,2),... 

-  v_i j  k2 ( 1 , 3 ) ] ; 


&  final  orbit 


while  time  <  t  max  &&  inc  < 


inc2  &&  mass  >  m  init-m  prop 


dv 

dv  track 
mp 

mp_tot 

mass 


=  Thrust  ep*t  step/mass*m2km; 

=  dv  track  +  dv; 

=  mass* (1-exp (-dv*km2m/ (Isp  ep*gO))); 
=  mp  tot  +  mp; 

=  mass  -  mp; 


% [km/s] 
% [km/s] 
%  [kg] 

%  [kg] 

%  [kg] 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
[r_i  j  k3 ,  v_i  j  k3 ]  =  updaterv  (r_i  j  k3 ,  v_i  j  k3 ,  v__i  j  k2a,  -dv,  t_step)  ; 

%Saves  location  that  thrust  occurs  at  for  plot********************* 
if  time  ==  0; 

11  =  1; 
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r_i j k3_thrust ( 11 , : )  =  r_ijk3; 

end 

S^'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

%Calculate  updated  inclination  between  transfer  &  final  orbit 

h3  =  cross ( r_ij k3 , v_ij k3 ) ; 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ; 

%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3  =  r  ij k3*R313 (argOper, pi-inc, RAAN) ; 

v  pqw3  =  v  ij k3*R313 (argOper, pi-inc, RAAN) ; 

for  nu  =  0:0.1:pi+0.1 

r_pqw(jj,:)  =  [mag (r_pqw3) *cos (nu)  mag (r_pqw3) *sin (nu)  0]; 
v_pqw(jj,:)  =  sqrt (mu/mag (r_pqw3) )* [-sin (nu)  (ecc+cos (nu) )  0]; 

jj  =  jj  +  i; 

end 


%Saves  location  that  thrust  occurs  at  for  plot********************* 
time  =  time  +  0.5*P  init;  %Update  time 
if  time  ==  0.5*P  init; 

11  =  11  +  1; 

r  ijk3  =  r  pqw(jj-2,:)*R313(RAAN,pi-inc,arg0per); 
r_i j k3_thrust ( 11 ,  : )  =  r_ijk3; 

end 

^■k'k-k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

%Transfer  from  Perifocal  to  Geocentric  Equatorial 
r  ijk3  =  r  pqw*R313 (RAAN, pi-inc,  argOper)  ; 
v  ijk3  =  v  pqw*R313 (RAAN, pi-inc, argOper) ; 


^Second  thrust  at  nu  =  pi****************************************** 


dv 

dv  track 
mp 

mp_tot 

mass 


=  Thrust  ep*t  step/mass*m2km;  %[km/s] 

=  dv  track  +  dv;  %[km/s] 

=  mass* (1-exp (-dv*km2m/ (Isp_ep*g0) )) ;  %[kg] 

=  mp_tot  +  mp;  % [ kg  ] 

=  mass  -  mp;  %[kg] 


[r_i  j  k3,  v_i  j  k3]  =  updaterv  (r__i  j  k3 ,  v_i  j  k3 ,  v_i  j  k2b, -dv,  t_step)  ; 

%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross (r_ij k3, v_ij k3) ; 

inc  =  abs (pi-  acos (h3 ( 3 ) /mag (h3 ) ) ) ;  %[rad] 

inc_tot  =  inc_tot  +  inc;  %[rad] 

inc  track (kk)  =  inc;  %[rad] 


%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3  =  r  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

v  pqw3  =  v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 

%Go  through  remainder  of  orbit  after  second  thrust 
for  nu  =  ( 0 . 1+pi )  : 0 . 1 : 2 *pi 

r_pqw(jj,:)  =  [mag (r_pqw3) *cos (nu)  mag (r_pqw3) *sin (nu)  0]; 
v_pqw(jj,:)  =  sqrt (mu/mag (r_pqw3) )* [-sin (nu)  (ecc+cos (nu) )  0]; 

jj  =  jj  +  i; 

end 

r  ijk3  =  r  pqw*R313 (RAAN, pi-inc, argOper); 


147 


v  i  j  k3 

j  j 

time 


v  pqw*R313 (RAAN, pi-inc,  argOper)  ; 

1; 

time  +  0.5*P_init;  %  [sec]  Update  time 


Th_prof 1  = 
r_i  j  k3_tpl 
v_i j  k3_tpl 

end 


[inc,  time, 
=  r_ijk3; 

=  v_ijk3; 


mp_tot, dv_track] ; 


figure ( 1 ) 

)  , 

_ij 

k3_thrust ( : , 2 ) , r_i j k3_thrust ( :  ,  3 )  ,  ' s '  ) 

title ('Final  Orbit  for  2-15  min  burns  at  nu  =  0  and  pi') 
legend (' Initial  Orbit ',' Transfer  Orbit ',' Final  Orbit ',' Thrust 
Location  '  ) 


plot 3 ( r_i j  kl ( : ,  1 )  ,  r_i j kl ( : , 2 ) , r_i j kl ( : , 3 ) ,  ' xg '  ,  r_i j k3 ( : , 1 ) , r_i j k3 ( : , 2 
r  ijk3(:,3),r  ijk2(:,l),r  ijk2(:,2),r  ijk2(:,3),r  ijk3  thrust  (:,  1 ),  r 


9-  *  *  *  *  *  -k 
o 

9-  -k  ~k  -k  ~k  -k  ~k 
o 

9~-k  -k  -k  -k  -k  -k 
o 

9-  -k  ~k  ~k  ~k  ~k  ~k 
o 


■k-k-k'k-k-k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k-k'k-k'k'k'k-k'k'k'k-k'k-k'k-k'k'k'k-k'k-k'k'k'k'k'k-k'k-k'k-k'k'k'k'k'k-k'k'k'k 

********* Thrust  Scheme  2:  1  -  15  min  burn  at  0**************** 
★  ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

*************** *Re  —  ini t ±ai ± ze  variables*********************** 


mass 

=  m  init; 

%  [kg] 

t  step 

=  18/60*hr2sec; 

%  [ sec] 

t  max 

=  t  const; 

% [sec] 

j  j 

=  1; 

%[  — ] 

time 

=  0; 

% [sec] 

v_ijk3 (1, : 

)  =  v_ijkl (1, : ) ; 

% [km/s 

r_ijk3 (1,  : 

)  =  r  ijkl (1, : ) ; 

% [km/ s 

dv  track 

=  0; 

% [km/s 

inc 

=  0; 

% [rad] 

mp  tot 

=  0; 

%  [kg] 

O'*  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k  ~k 
o 


'k'k'k'k-k'k'k'k-k'k'k'k-k'k-k'k-k'k-k'k-k'k'k'k-k'k'k'k-k'k-k'k'k'k'k'k-k'k'k'k-k'k'k'k-k'k'k'k'k'k'k'k 


while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 
dv  =  Thrust  ep*t  step/mass*m2km; 

dv  track  =  dv  track  +  dv; 

mp  =  mass* (1-exp (-dv*km2m/ (Isp  ep*g0))); 

mp  tot  =  mp  tot  +  mp; 

mass  =  mass  -  mp; 


% [km/s] 
% [km/s] 
%  [kg] 

%  [kg] 

%  [kg] 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
[r_i j k3, v_i j k3]  =  updaterv ( r_i j k3 , v_i j k3 , v_i j k2a, -dv, t_step) ; 

%Calculate  updated  inclination  between  transfer  &  final  orbit 

h3  =  cross (r_ij k3, v_ij k3) ; 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ; 

%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3  =  r  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

v  pqw3  =  v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 

%Calculate  orbit  from  0  to  2pi  after  thrust 
for  nu  =  0 : 0 . 1 : 2*pi+0 . 1 

r_pqw(jj,:)  =  [mag (r_pqw3) *cos (nu)  r*sin (nu)  0]; 
v_pqw(jj,:)  =  sqrt (mu/p) *[ -sin (nu)  (ecc+cos (nu) )  0]; 
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jj  +  i; 


j  j 

end 

j  j  =  1  ; 

r  ijk3  =  r  pqw*R313 (RAAN, pi-inc,  argOper)  ; 
v  ijk3  =  v  pqw*R313 (RAAN, pi-inc, argOper) ; 
time  =  time  +  P  init; 


%  [km] 

% [km/s] 

% [sec] Update  time 


Th_prof 2 
r_i j  k3_tp2 
v  ijk3  tp2 
r  ijk3  thrust 

end 


[inc,  time,  mp_tot, dv_track] ; 
r_i j  k3 ; 
v_i j  k3 ; 

r_ijk3(l,:);  %Save  Thrust  location  for  plot 


figure (2 ) 

plot 3 ( r_i j  kl ( : , 1 ) , r_i j  kl ( : , 2 ) , r_i j kl ( : , 3 ) ,  ' xg ' , r_i j k3 ( : , 1) , r_i j k3 

r_i j  k3 ( : , 3 ) , r_i j k2 ( : , 1 ) , r_i j k2 ( : , 2 ) , r_i j k2 ( : , 3 ) , r_i j k3_thrust ( : , 1 

k3_thrust ( : , 2 ) , r_i j k3_thrust ( :  ,  3 )  ,  ' s '  ) 

title (' Final  Orbit  for  1-15  min  burn  at  nu  =  O') 

legend (' Initial  Orbit Transfer  Orbit Final  Orbit Thrust 

Location  '  ) 


:,2)  , 

'  r_ij 


9-  9c  ~k  9r  9c  9r  9c  9r  9c  9c  9c  9r  9c  9r  9c  9r  9c  9c  9c  9r  9c  9r  9c  9r  9c  9r  9c  9r  9c  9c  9c  9r  9c  9c  9c  9r  9c  9c  9r  9c  9c  9c  9c  9r  9c  9c  9c  9r  9c  9c  9c  9r  9c  9c  9c  9r  9c  9c  9c  9r  9c  9c  9c  9c  9c  9c  9c  9c  9c 
o 

%***********Thrust  scheme  3:  2  -  15  min  burns  &  chemical************ 

9-  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c  9c 
o 

^* *******************  *  * Re- initial i Ze  variables*********************** 


mass 

=  m  init; 

%  [kg] 

t  step 

=  15/60*hr2sec; 

% [sec] 

t  max 

=  t  const; 

% [ sec] 

kk 

=  1; 

%[  — ] 

j  j 

=  l; 

%[  —  ] 

time 

=  0; 

% [sec] 

v_ijk3 (1, : 

)  =  v_i j  kl (1,  : ) ; 

% [km/s] 

r_ijk3 (1,  : 

)  =  r  ijkl  (1,  : ) ; 

% [km/ s] 

dv  track 

=  0; 

% [km/s] 

inc 

=  0; 

% [rad] 

inc  tot 

=  0; 

% [rad] 

mp  tot 

=  0; 

%  [kg] 

9-9c9c9c9r9c9c9c9c9c9c9c9r9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9r9c9r9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9r9c9c9c9c9c9c 

o 

while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 


dv 

dv  track 
mp 

mp_tot 

mass 


=  Thrust  ep*t  step/mass*m2km; 

=  dv  track  +  dv; 

=  mass* (1-exp (-dv*km2m/ (Isp  ep*gO))); 
=  mp  tot  +  mp; 

=  mass  -  mp; 


% [km/s] 
% [km/s] 
%  [kg] 

%  [kg] 

%  [kg] 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
[r_i j k3, v_i j k3]  =  updaterv ( r_i j k3 , v_i j k3 , v_i j k2a, -dv, t_step) ; 

%Saves  location  that  thrust  occurs  at  for  plot********************* 
if  time  ==  0; 

11  =  1; 

r_i j k3_thrust ( 11 , : )  =  r_ijk3; 

end 

9-9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9r9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9c9r9c 

o 
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%Calculate  updated  inclination  between  transfer  &  final  orbit 

h3  =  cross (r_ij k3 , v_ij k3 ) ; 

inc  =  abs (pi  -  acos (h3 ( 3 ) /mag (h3 ) ) ) ; 

%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3  =  r  ij k3*R313 (argOper, pi-inc, RAAN) ; 

v  pqw3  =  v  ij k3*R313 (argOper, pi-inc, RAAN) ; 

for  nu  =  0:0.1:pi+0.1 

r_pqw(jj,:)  =  [mag ( r_pqw3 ) *cos (nu)  mag (r_pqw3) *sin (nu)  0]; 
v_pqw(jj,:)  =  sqrt (mu/mag (r_pqw3) )* [-sin (nu)  (ecc+cos  (nu) )  0]; 

jj  =  jj  +  i; 

end 


%Saves  location  that  thrust  occurs  at  for  plot********************* 
time  =  time  +  0.5*P  init;  %Update  time 
if  time  ==  0.5*P  init; 

11  =  11  +  1; 

r  ijk3  =  r  pqw ( j j -2 ,:) *R313 (RAAN, pi-inc, argOper ) ; 
r_i j k3_thrust ( 11 , : )  =  r_ijk3; 

end 

9~'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k~k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

%Transfer  from  Perifocal  to  Geocentric  Equatorial 
r  ijk3  =  r  pqw*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw*R313 (RAAN, pi-inc, argOper) ; 


^Second  thrust  at  nu  =  pi****************************************** 


dv 

dv  track 
mp 

mp_tot 

mass 


=  Thrust  ep*t  step/mass*m2km;  %[km/s] 

=  dv  track  +  dv;  %[km/s] 

=  mass* (1-exp (-dv*km2m/ (Isp_ep*g0) ))  ;  % [ kg ] 

=  mp_tot  +  mp;  %[kg] 

=  mass  -  mp;  %[kg] 


[r_i j k3, v_i j k3]  =  updaterv (r_i j k3 , v_i j k3 , v_i j k2b, -dv, t_step) ; 

%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross ( r_ij k3 , v_ij k3 ) ; 

inc  =  abs (pi-  acos (h3 ( 3 ) /mag (h3 ) ) ) ;  %[rad] 

inc_tot  =  inc_tot  +  inc;  %[rad] 

inc  track (kk)  =  inc;  %[rad] 

%Transfer  from  Geocentric  Equatorial  to  Perifocal 
r  pqw3  =  r  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

v  pqw3  =  v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 

%Go  through  remainder  of  orbit  after  second  thrust 
for  nu  =  ( 0 . 1+pi ) : 0 . 1 : 2 *pi 

r_pqw(jj,:)  =  [mag ( r_pqw3 ) *cos (nu)  mag ( r_pqw3 ) *sin (nu)  0]; 
v_pqw(jj,:)  =  sqrt (mu/mag (r_pqw3) )* [-sin (nu)  (ecc+cos (nu) )  0]; 

jj  =  jj  +  i; 

end 

r  ijk3  =  r  pqw*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw*R313 (RAAN, pi-inc, argOper) ; 

j  j  =  1  ; 

time  =  time  +  0.5*P  init;  %[sec]  Update  time 
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%Chemical  will  complete  maneuver  it  time  limit  is  reached 
if  time  >  (t  max  -  3*hr2sec) 

dv  =  2*mag(v  i j k2 ) *sin ( ( inc2  -  inc)/2); 

mp  =  mass* (1-exp (-dv*km2m/Isp  chem/gO));  % [ kg] 

inc  =  inc2; 

mp  tot  =  mp  tot  +  mp; 
dv  track  =  dv  track  +  dv; 

end 

r  ijk3  =  r  ijk2; 

Th  prof3  =  [inc,  time,  mp  tot,dv  track]; 

end 

figure ( 3 ) 

plot 3  (r_ijkl ( : , 1) , r_ijkl ( : , 2) , r_ijkl ( : ,  3)  ,  ' xg' , r_ijk3 ( : , 1) , r_ijk3 ( : ,  2)  , 
r_i j  k3 ( : , 3 ) , r_i j k2 ( : , 1 ) , r_i j k2 ( : , 2 ) , r_i j k2 ( : , 3 ) , r_i j k3_thrust ( : , 1 ) , r_i j 
k3_thrust ( : , 2 ) , r_i j k3_thrust ( : , 3 )  ,  ' s ' ) 

title (' Final  Orbit  for  2-15  min  burn  at  nu  =  0  and  pi  then  Chemical') 
legend (' Initial  Orbit Transfer  Orbit Final  Orbit Thrust 
Location  '  ) 


o, 

o 


%****************Thrust-  scheme  4:  15  -  1  min  burns******************* 


mass 

=  m  init; 

%  [kg] 

t  step 

=  15/60*hr2sec; 

%  [ sec] 

t  step  min 

=  1*60; 

%  [ sec] 

t  max 

=  t  const; 

%  [ sec] 

j  j 

=  1; 

%[  —  ] 

time 

=  0; 

%  [ sec] 

v  i j  k3  (1 ,  : 

)  =  v_ijkl (1, : ) ; 

% [km/s] 

r  i j  k3  (1 ,  : 

)  =  r  ijkl (1, : ) ; 

% [ km/ s ] 

dv  track 

=  0; 

% [ km/ s ] 

inc 

=  0; 

% [rad] 

mp  tot 

=  0; 

%  [kg] 

9''k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

%Calulate 

initial  thrust  vector  between  initial  &  final  orbit 

v  ijk  diff 

=  [v  ijkl (1,1)  -  v 

_ijk2  (1,1)  ,  .  .  . 

v  ijkl (1,2)  -  v 

ijk2  (1,2)  ,  .  .  . 

v  ijkl (1,3)  -  v 

_ijk2  (1,3)  ]  ; 

while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 


for 


time2  = 
dv 

dv  track 
mp 

mp_tot 

mass 


0 : t_step_min : t_step 

=  Thrust  ep*t  step  min/mass*m2km; 

=  dv  track  +  dv; 

=  mass* (1-exp (-dv*km2m/ (Isp  ep*gO))); 
=  mp  tot  +  mp; 

=  mass  -  mp; 


% [km/s] 
% [km/s] 
%  [kg] 

%  [kg] 

%  [kg] 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
if  time2  >  0 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  ijk2f,- 

dv, time2 ) ; 

else 
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end 


[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  i j k2 , -dv, time2 ) ; 


%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross (r_ij k3, v_ij k3) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 ( 3 ) /mag (h3 ) ) ) ;  %[rad] 


0]  ; 


%Transfer 
r_pqw3a 
v  pqw3a 
nua 

r_pqw3 ( j  j  , 
v_pqw3 ( j  j  , 


from  Geocentric  Equatorial  to  Perifocal 

=  r  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

=  v  ij k3*R313 (argOper, pi-inc,  RAAN) ;  %[km/s] 

=  w  init*time2;  %[rad] 

:)  =  [mag (r_pqw3a) *cos (nua)  mag (r_pqw3a) *sin (nua)  0]; 
:)  =  sqrt (mu/mag (r_pqw3a) )* [-sin (nua)  (ecc+cos  (nua) ) 


r_i j  k3 
v  i  j  k3 


=  r_pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km] 

=  v_pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km/s] 


r_i j k3_thrust ( j j , : )  =  r_ijk3; 


%Calc  where  final  orbit  position  is  to  get  correct  thrust  vector 

r_pqw2f  =  [mag (r_i j k2 ( 1 , : ) ) *cos (nua)  mag ( r_i j k2 ( 1 , : ) ) *sin (nua) 

0]  ; 

v_pqw2f  =  sqrt (mu/p) *[ -sin (nua)  (ecc+cos (nua) )  0]; 
r  ijk2f  =  r  pqw2f*R313 (RAAN, pi-inc,  argOper) ; 
v  ijk2f  =  v  pqw2f*R313 (RAAN, pi-inc, argOper); 


if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN,  pi-inc,  argOper) ; 

end 

jj  =  jj  +  1; 

end 

jj  =  jj  -  i; 


%Calculate  orbit  after  thrust 
for  nu  =  nua:0.1: (2*pi+nua) 

r_pqw3(jj,:)  =  [mag (r_pqw3a) *cos (nu)  mag (r_pqw3a) *sin (nu)  0]; 
v_pqw3(jj,:)  =  sqrt (mu/p) * [-sin (nu)  (ecc+cos (nu) )  0]; 

jj  =  jj  +  i; 

end 

r  ijk3  =  r  pqw3*R313 (RAAN,  pi-inc,  argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

jj  =  jj  -  i; 

j  j  =  i  ; 

time  =  time  +  P  init;  %Update  time,  each  time  through  is  one  orbit 

Th  prof4  =  [inc,  time,  mp  tot,dv  track]; 

r  ijk4  tp4  =  r  ijk3; 

v  ijk4  tp4  =  v  ijk3; 

end 


figure ( 4 ) 

plot 3  (r_i j  kl ( : , 1) , r_ijkl ( : , 2) , r_ijkl ( :  ,  3)  ,  ' xg' , r_ijk3 ( : , 1) , r_ijk3 ( :  ,  2)  , 
r_i j  k3 ( : , 3 ) , r_i j k2 ( : , 1 ) , r_i j k2 ( : , 2 ) , r_i j k2 ( : , 3 ) , r_i j k3_thrust ( : , 1 ) , r_i j 
k3_thrust ( : , 2 ) , r_i j k3_thrust ( : , 3 )  ,  ' s ' ) 
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title ('Final  Orbit  for  15-1  min  burns  beginning  at  nu  =  O') 
legend (' Initial  Orbit ',' Transfer  Orbit ',' Final  Orbit ',' Thrust 
Location  '  ) 


o 

%**************Thrust  scheme  5:  Continuous  1  min  burns*************** 

9~'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

o 

9-Vr  ~k  -k  ~k  i<  ~k  -k  ~k  ~k  ~k  -k  ~k  ~k  ~k  -k  ~k  -k  ~k  -k  ~k  i<  ~k  -k  ~k  -k  ~k  -k  ~k  ~k  -k  ~k  -k  ~k  -k  ~k  -k  ~k  -k  ~k  -k  ~k  ~k  ~k  ~k  ~k  -k  ~k  -k  ~k  -k  ~k  ~k  -k  ~k  -k  ~k  -k  ~k 


mass 

= 

m  init; 

o, 

o 

[kg] 

t  step 

= 

(P  init) ; 

o, 

o 

[  sec] 

t  step  min 

= 

t  step/ 60; 

o, 

o 

[  sec] 

t  max 

= 

t  const; 

o, 

o 

[  sec] 

kk 

= 

1; 

o, 

o 

[  — ] 

j  j 

= 

1; 

o, 

o 

[  — ] 

yy 

= 

1; 

o, 

o 

[  — ] 

time 

= 

0; 

o, 

o 

[  sec] 

v_ijk3 (1, : ) 

= 

v_ijkl (1, : ) ; 

o, 

o 

[km/s] 

r_ijk3 (1,  ; ) 

= 

r  ijkl (1, : ) ; 

o, 

o 

[km/s] 

dv  track 

= 

0; 

o, 

o 

[km/s] 

inc 

= 

0; 

o, 

o 

[rad] 

inc  tot 

= 

0; 

o, 

o 

[rad] 

mp  tot 

= 

0; 

o, 

o 

[kg] 

%Calulate  initial  thrust  vector  between  initial  &  final  orbit 
v  ijk  diff  =  [v  ijkl(l,l)  -  v  ij k2 (1, 1) , . . . 

v  ijkl(l,2)  -  v  ijk2  (1,2)  ,  .  .  . 
v_ijkl(l,3)  -  v_ij k2 (1, 3) ] ; 

while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 

for  time2  =  0:t  step  min:t  step 

dv  =  Thrust  ep*t  step  min/mass*m2km;  %[km/s] 

dv  track  =  dv^track  +  dv;  %[km/s] 

mp  =  mass* (1-exp (-dv*km2m/ (Isp  ep*gO)));  %[kg] 

mp_tot  =  mp_tot  +  mp;  %[kg] 

mass  =  mass  -  mp;  %[kg] 

%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
if  time2  ==  0 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  i j k2 , -dv, time2 ) 
elseif  time2  >  P  init/2 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  i j k2f , dv, time2 ) 
elseif  time2  <  P  init/2 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  ijk2f,- 

dv, time2 ) ; 

end 

%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross (r_ij k3, v_ij k3) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ;  %[rad] 


%Transfer  from  Geocentric  Equatorial  to  Perifocal 

r  pqw3a  =  r  i j k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

v  pqw3a  =  v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 

nua  =  w  init*time2;  %[rad] 
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0]  ; 


r_pqw3(jj,:)  =  [mag ( r_pqw3a) *cos (nua)  mag (r_pqw3a) *sin (nua)  0]; 
v_pqw3(jj,:)  =  sqrt (mu/mag (r_pqw3a) )* [-sin (nua)  (ecc+cos  (nua) ) 

r_ijk3  =  r_pqw3 ( j j , : ) *R313 (RAAN, pi-inc, argOper) ;  %[km] 

v  ijk3  =  v  pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km/s] 


%Calc 

0]  ; 


where  final  orbit  position  is  to  get  correct  thrust  vector 

r_pqw2f  =  [mag ( r_i j k2 ( 1 , : ) ) *cos (nua)  mag ( r_i j k2 ( 1 , : ) ) *sin (nua) 

v_pqw2f  =  sqrt (mu/p) *[ -sin (nua)  (ecc+cos (nua) )  0];  %[km/s] 

r  ijk2f  =  r  pqw2f*R313 (RAAN, pi-inc, argOper) ;  %[km] 

v  ijk2f  =  v  pqw2f*R313 (RAAN, pi-inc, argOper) ;  %[km/s] 


if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc,  argOper)  ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

end 

jj  =  jj  +  l; 

end 


for  nu  =  nua:0.1: (2*pi)  %2*pi+nua 

r_pqw3(jj,:)  =  [mag (r_pqw3a) *cos (nu)  mag (r_pqw3a) *sin (nu) 
v_pqw3(jj,:)  =  sqrt (mu/p) * [-sin (nu)  (ecc+cos (nu) )  0]; 

jj  =  jj  +  i; 

end 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ;  %[km] 

v  ijk3  =  v  pqw3*R313 (RAAN,  pi-inc,  argOper) ;  %[km/s] 

r  ijk3  thrust  =  r  ijk3; 

jj  =  jj  -  i; 

if  time  ==  0 

YY  =  1:1:  jj; 
yy_old  =  yy(end); 

else 

yy  =  yy_old+l : 1 : j j +yy_old; 
yy_old  =  yy(end); 

end 


j  j  =  i  ; 

for  count  =  yy ( 1 ) : 1 : yy (end) 

r_ij  k3_track  (count,  : )  =  r__i  j  k3  ( j  j  ,  : )  ; 

jj  =  jj  +i; 

end 


j  j 

time 

Th_prof 5 
r  ijk4  tp5 
v  ijk4  tp5 

end 


=  1; 

=  time  +  P_init;  %[sec]  Update 
=  [inc,  time,  mp_tot, dv_track] ; 
=  r_ijk3; 

=  v_ijk3; 


time 


0]  ; 


figure ( 5 ) 

plot 3 (r_i j kl ( : , 1) , r_ijkl ( : , 2) , r_ijkl ( :  ,  3)  ,  ' xg' , r_ijk3 ( : , 1) , r_ijk3 ( :  ,  2)  , 
r_i j  k3 ( : , 3 ) , r_i j k2 ( : , 1 ) , r_i j k2 ( : , 2 ) , r_i j  k2 ( : , 3 ) , r_i j k3_thrust ( : , 1 ) , r_i j 
k3_thrust ( : , 2 ) , r_i j k3_thrust ( : , 3 )  ,  's') 

title (' Final  Orbit  for  15-1  min  burns  beginning  at  nu  =  O') 
legend (' Initial  Orbit ',' Transfer  Orbit ',' Final  Orbit ',' Thrust 
Location  '  ) 
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9'~k'k'k'k'k'k'k'k'k'k'k'k 

o 

9-Vr  ~k  ~k  ~k  ~k  ~k  -k  ~k  ~k  ~k  -k  ~k 
o 

9--k'k-k-k-k'k-k-k-k'k-k'k 

o 

9''k'k'k'k'k'k'k'k'k'k'k'k 


■k'k-k'k-k-k-k-k'k'k-k'k-k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

****ThrUst  Scheme  6:  15  -  1  min  burns******************* 
**Centered  around  crossover  points********************** 

•k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 


mass 

- 

m  init; 

%  [kg] 

t  step 

- 

16/60*hr2sec; 

%  [ sec] 

t  step  min 

= 

1*60; 

%  [ sec] 

t  max 

= 

t  const; 

%  [ sec] 

j  j 

= 

1; 

%[  — ] 

mm 

= 

0; 

%[  — ] 

time 

= 

0; 

%  [ sec] 

v  i j  k3  (1 ,  : 

)  = 

v  i j  kl  ( 1 ,  : 

)  ; 

% [km/s] 

r  i j  k3  (1 ,  : 

)  = 

r_ i  j  kl  (1,  : 

) ; 

% [ km/ s ] 

dv  track 

= 

0; 

% [km/s] 

inc 

= 

0; 

% [rad] 

mp  tot 

- 

0; 

%  [kg] 

9''k'k'k'k'k'k'k'k'k 

o 

'k'k'k-k'k'k'k-k'k'k'k'k'k'k 

'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

%Calulate 

initial  thrust 

vector  between  ini' 

v  ijk  diff 

= 

[v_i  j  kl  (1,1 

)  -  v 

_ijk2  (1,1)  ,  .  .  . 

v  i j  kl  ( 1 , 2 

)  -  v 

ijk2  (1,2)  ,  .  .  . 

v  i j  kl  ( 1 , 3 

)  -  v 

_ijk2  (1,3)  ]  ; 

&  final  orbit 


while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 


for  time2  =  0:t  step  min: (t  step/2) 

dv  =  Thrust  ep*t  step  min/mass*m2km; 

dv  track  =  dv  track  +  dv; 

mp  =  mass* (1-exp (-dv*km2m/ (Isp  ep*gO))); 

mp  tot  =  mp  tot  +  mp; 
mass  =  mass  -  mp; 


% [ km/ s ] 
% [km/s] 
%  [kg] 

%  [kg] 

%  [kg] 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
if  time2  >  0 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  ijk2f,- 

dv, time2 ) ; 

else 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  i j k2 , -dv, time2 ) ; 

end 


%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross (r_ij k3, v_ij k3) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ;  %[rad] 


0]  ; 


%Transfer  from 
r_pqw3a  = 

v  pqw3a  = 

nua  = 

r_pqw3 ( j  j ,  : )  = 
v_pqw3 ( j  j ,  : )  = 


Geocentric  Equatorial  to  Perifocal 
r  i j k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 

w  init*time2;  %[rad] 

[mag (r_pqw3a) *cos (nua)  mag (r_pqw3a) *sin (nua)  0]; 
sqrt (mu/mag (r_pqw3a) ) * [-sin (nua)  (ecc+cos (nua) ) 


r_i j  k3 
v  i  j  k3 


=  r_pqw3 ( j  j 
=  v_pqw3 ( j  j 


*R313 (RAAN, pi-inc, argOper) ;  % [km] 

*R313 (RAAN,  pi-inc, argOper) ;  % [km/ s] 


if  time  ==  0 
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end 


mm  =  mm  +  1  ; 

r  ijk3  thrust6 (mm, :)  =  r  ijk3; 


%Calc  where  final  orbit  position  is  to  get  correct  thrust 

vector 

r  pqw2f  =  [mag (r  i j k2 ( 1 , : ) ) *cos (nua)  mag(r  i j k2 (1,  : ) ) *sin (nua) 

Oj  ; 

v_pqw2f  =  sqrt (mu/p) *[ -sin (nua)  (ecc+cos (nua) )  0]; 
r  ijk2f  =  r  pqw2f*R313 (RAAN, pi-inc, argOper) ; 
v  ijk2f  =  v  pqw2f*R313 (RAAN, pi-inc, argOper) ; 

if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

end 

jj  =  jj  +  i; 

end 

jj  =  jj  -  i; 


%Calculate  orbit  after  thrust 
for  nu  =  nua:0.1: (2*pi-nua) 

r_pqw3(jj,:)  =  [mag (r_pqw3a) *cos (nu)  mag (r_pqw3a) *sin (nu)  0]  ; 
v_pqw3(jj,:)  =  sqrt (mu/p) *[ -sin (nu)  (ecc+cos (nu) )  0]; 

jj  =  jj  +  i; 

end 

nua  =  nu; 
time2  =  nua/w  init; 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN,  pi-inc,  argOper) ; 


for 


time2  = 
dv 

dv  track 
mp 

mp_tot 

mass 


(time2) :t  step  min: (time2+t  step/2) 

=  Thrust  ep*t  step  min/mass*m2km; 

=  dv  track  +  dv; 

=  mass* (1-exp (-dv*km2m/ (Isp  ep*g0) 
=  mp  tot  +  mp; 

=  mass  -  mp; 


% [ km/ s ] 
% [ km/ s ] 
%  [kg] 

%  [kg] 

%  [kg] 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  i j k2f , dv, time2 ) ; 

%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross (r_ij k3 , v_ij k3 ) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ;  %[rad] 


0]  ; 


% [km/s] 


%Transf er 
r_pqw3a 
v  pqw3a 
nua 

r_pqw3 ( j  j  , 
v_pqw3 ( j  j  , 


from  Geocentric  Equatorial  to  Perifocal 

=  r  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

=  v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 

=  w  init*time2;  %[rad] 

:)  =  [mag ( r_pqw3a) *cos (nua)  mag (r_pqw3a) *sin (nua)  0]; 
:)  =  sqrt (mu/mag ( r_pqw3a) )*[ -sin (nua)  (ecc+cos (nua) ) 


r_i j  k3 
v  i  j  k3 


=  r_pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km] 

=  v_pqw3 ( j  j ,  : ) *R313 (RAAN, pi-inc, argOper) ; 
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if  time  ==  0 

mm  =  mm  +  1  ; 

r  ijk3  thrust6 (mm, :)  =  r  ijk3; 

end 


vector 

0]  ; 


oCalc  where  final  orbit  position  is  to  get  correct  thrust 


r  pqw2f 


[mag (r_i j k2 ( 1 , : ) ) *cos (nua) 


mag (r  i j  k2  ( 1 , 


*sin (nua) 


v  pqw2f 
r^ijk2f 
v  ijk2f 


sqrt (mu/p) *[ -sin (nua)  (ecc+cos (nua) )  0]; 
r  pqw2f *R313 (RAAN, pi-inc, argOper) ; 
v  pqw2f *R313 (RAAN, pi-inc, argOper) ; 


if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper)  ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

end 


jj  = 

end 
r_i j  k3 
v  i  j  k3 

j  j 

time 

Th_prof 6 

end 


jj  +  i; 

=  r  pqw3*R313 (RAAN, pi-inc, argOper)  ; 

=  v  pqw3*R313 (RAAN, pi-inc, argOper)  ; 

=  i7 

=  time  +  P_init;  %[sec]  Update  time 
=  [inc,  time,  mp_tot, dv_track] ; 


%  [km] 
%  [km] 


figure (6) 

plot 3 (r_i j  kl ( : , 1) , r_ijkl ( : , 2) , r_ijkl ( : , 3) ,  'xg' , r_ijk3 ( : , 1) , r_ijk3 ( : , 2) , 
r_i j  k3 ( : , 3 ) , r_i j k2 ( : , 1 ) , r_i j k2 ( : , 2 ) , r_i j k2 ( : , 3 ) , r_i j k3_thrust6 ( : , 1 )  ,  r_i 
j  k3_thrust6 ( : , 2 ) , r_i j k3_thrust6 ( : , 3 ) ,  's') 

title (' Final  Orbit  for  15-1  min  burns  centered  at  nu  =  O') 
legend (' Initial  Orbit Transfer  Orbit Final  Orbit Thrust 
Location  '  ) 


O'************************************** 

o 


****************************** 


%****************Thrust-  Scheme  7:  15 
^*  ********** *  *  *Centered  nu  =  pi/2  and 

9-  V ************************************ 
o 


-  1  min  burns******************* 
3pi/4 ************************** 
******************************** 


mass 

= 

m  init; 

o, 

o 

[kg] 

t  step 

= 

16/60*hr2sec; 

o, 

o 

[  sec] 

t  step 

min 

= 

1*60; 

o, 

o 

[  sec] 

t  max 

= 

t  const; 

o, 

o 

[  sec] 

j  j 

= 

1; 

o, 

o 

[  — ] 

mm 

= 

0; 

o, 

o 

[  — ] 

time 

= 

0; 

o, 

o 

[  sec] 

v  i j  k3  ( 

1,  :) 

= 

v  i j  kl  ( 1 ,  : 

)  ; 

Q, 

o 

[km/s 

r_i j  k3 ( 

1,  :) 

= 

r_ i  j  kl  (1,  : 

)  ; 

o, 

o 

[km/s 

dv  trac 

k 

= 

0; 

o, 

o 

[km/s 

inc 

= 

0; 

o, 

o 

[rad] 

mp  tot 

= 

0; 

o, 

o 

[kg] 

9~*  **********************************  * 
o 


************************ 


%Calulate  initial  thrust  vector  between  initial  &  final  orbit 
v  ijk  diff  =  [v  ijkl(l,l)  -  v  i j k2 ( 1 , 1 ) , . . . 

v  ijkl(l,2)  -  v  i j k2 ( 1 , 2 ) , . . . 
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v_ijkl(l,3)  -  v_ij k2 (1, 3) ] ; 

while  time  <  t  max  &&  inc  <  inc2  &&  mass  >  m  init-m  prop 


% [km/s] 
% [km/s] 
%  [kg] 

%  [kg] 

%  [kg] 


for  time2  = 
dv 

dv  track 
mp 

mp_tot 

mass 


0 : t_step_min : (t_step/2) 

=  Thrust  ep*t  step  min/mass*m2km; 

=  dv  track  +  dv; 

=  mass* (1-exp (-dv*km2m/ (Isp  ep*gO))); 
=  mp  tot  +  mp; 

=  mass  -  mp; 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
if  time2  >  0 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  ijk2f,~ 

dv, time2 ) ; 

else 

[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  i j k2 , -dv, time2 ) ; 

end 


%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross (r_ij k3, v_ij k3) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 ( 3 ) /mag (h3 ) ) ) ;  %[rad] 


0]  ; 


% [km/s] 


%Transfer 
r_pqw3a 
v  pqw3a 
nua 

r_pqw3 ( j  j  , 
v_pqw3 ( j  j  , 


from  Geocentric  Equatorial  to  Perifocal 

=  r  i j k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

=  v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 

=  w  init*time2;  %[rad] 

:)  =  [mag (r_pqw3a) *cos (nua)  mag (r_pqw3a) *sin (nua)  0]; 
:)  =  sqrt (mu/mag (r_pqw3a) )* [-sin (nua)  (ecc+cos  (nua) ) 


r_i j  k3 
v  i  j  k3 


=  r_pqw3 (j j ,:) *R313 (RAAN, pi-inc,  argOper)  ;  %[km] 

=  v_pqw3 ( j  j ,  : ) *R313 (RAAN, pi-inc, argOper) ; 


if  time  ==  0 

mm  =  mm  +  1  ; 

r  ijk3  thrust6 (mm, : )  =  r  ijk3; 

end 


%Calc  where  final  orbit  position  is  to  get  correct  thrust 

vector 

r  pqw2f  =  [mag (r  i j  k2 ( 1 ,  : ) ) *cos (nua)  mag (r  ijk2(l,:))*sin (nua) 

0]; 

v_pqw2f  =  sqrt (mu/p) *[ -sin (nua)  (ecc+cos (nua) )  0]; 
r  ijk2f  =  r  pqw2f*R313 (RAAN, pi-inc,  argOper) ; 
v  ijk2f  =  v  pqw2f*R313 (RAAN, pi-inc, argOper) ; 

if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

end 

jj  =  jj  +  1; 

end 

jj  =  jj  -  i; 
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%Calculate  orbit  after  thrust 
for  nu  =  nua:0.1: (2*pi-nua) 

r_pqw3(jj,:)  =  [mag (r_pqw3a) *cos (nu)  mag (r_pqw3a) *sin (nu)  0]  ; 
v_pqw3(jj,:)  =  sqrt (mu/p) * [-sin (nu)  (ecc+cos (nu) )  0]; 
jj  =  jj  +  1; 

end 

nua  =  nu; 
time2  =  nua/w  init; 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper)  ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 


for 


time2  = 
dv 

dv  track 
mp 

mp_tot 

mass 


(time2) :t  step  min: (time2+t  step/2) 

=  Thrust  ep*t  step  min/mass*m2km; 

=  dv  track  +  dv; 

=  mass* (1-exp (-dv*km2m/ (Isp  ep*g0) 
=  mp  tot  +  mp; 

=  mass  -  mp; 


% [ km/ s ] 
% [ km/ s ] 

%  [kg] 

%  [kg] 

%  [kg] 


%Calulate  updated  thrust  vector  between  transfer  &  final  orbit 
[r  ijk3,v  ijk3]  =  updaterv(r  ijk3,v  ijk3,v  i j k2f , dv, time2 ) ; 

%Calculate  updated  inclination  between  transfer  &  final  orbit 
h3  =  cross ( r_ij k3 , v_ij k3 ) ;  %[kmA2/s] 

inc  =  abs (pi  -  acos (h3 (3) /mag (h3) ) ) ;  %[rad] 


0]  ; 


%Transfer  from 
r_pqw3a  = 

v  pqw3a  = 

nua  = 

r_pqw3 ( j  j ,  : )  = 
v  pqw3 ( j  j ,  : )  = 


Geocentric  Equatorial  to  Perifocal 
r  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km] 

v  ij k3*R313 (argOper, pi-inc, RAAN) ;  %[km/s] 

w  init*time2;  %[rad] 

[mag (r_pqw3a) *cos (nua)  mag (r_pqw3a) *sin (nua)  0] 
sqrt (mu/mag (r  pqw3a) ) * [ -sin (nua)  (ecc+cos (nua) ) 


r_i j  k3 
v  i  j  k3 


=  r_pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km] 

=  v_pqw3 (j j ,:) *R313 (RAAN, pi-inc, argOper) ;  %[km/s] 


if  time  ==  0 

mm  =  mm  +  1 ; 

r  ijk3  thrust6 (mm, : )  =  r  ijk3; 

end 


%Calc  where  final  orbit  position  is  to  get  correct  thrust  vector 

r_pqw2f  =  [mag (r_i j k2 ( 1 , : ) ) *cos (nua)  mag ( r_i j k2 ( 1 , : ) ) *sin (nua) 

0]; 

v_pqw2f  =  sqrt (mu/p) *[ -sin (nua)  (ecc+cos (nua) )  0]; 
r  ijk2f  =  r  pqw2f*R313 (RAAN, pi-inc, argOper) ; 
v  ijk2f  =  v  pqw2f*R313 (RAAN, pi-inc, argOper) ; 

if  time2  ==  t  step 

r  ijk3  =  r  pqw3*R313 (RAAN, pi-inc, argOper) ; 
v  ijk3  =  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

end 

jj  =  jj  +  i; 

end 
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r_ijk3 

=  r  pqw3*R313 (RAAN, pi-inc, argOper)  ; 

%  [km] 

v  i  j  k3 

=  v  pqw3*R313 (RAAN, pi-inc, argOper) ; 

%  [km] 

j  j 

=  1; 

%[  — ] 

time 

=  time  +  P  init; 

%[sec]  Update  time 

Th  prof 7 

=  [inc,  time,  mp  tot,dv  track]; 

end 
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